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Uno, nessuno, centomila. 


UNIVEX informatica ed il suo servizio di duplica¬ 
zione: da un qualsiasi disk di formato 5" 1 / 4 o 
3" 1/2 ve ne facciamo anche centomila copie, 
ad un prezzo talmente competitivo che forse vi 
farà sorridere. 

Se intendete proteggere i programmi di vostra 
progettazione dalle duplicazioni pirata, in abbi¬ 
namento vi forniamo COPYLOCK: un lucchetto di 
protezione nato apposta per i 
I software. Che non ama i copioni. 
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Software, ultimissima novità del Gruppo Editoriale Jackson 
è la prima opera completa sulla programmazione del per¬ 
sonal computer in 5 volumi. 

Un'opera diversa e assai più approfondita rispetto a un 
semplice corso di Basic. 

Se è vero, infatti, che il Basic fornisce un'utile chiave 
d'accesso al mondo della programmazione, è altrettanto 
vero che quest'ultima abbraccia un campo assai più vasto 
e complesso rispetto al popolare linguaggio. 

Sistemi Operativi Linguaggi di Programmazione. Softwa¬ 


re Applicativo: questi i tre cardini su cui si fonda Software, 
che fornisce tutti gli strumenti teorici, ma soprattutto prati¬ 
ci. per acquisire la padronanza completa del personal 
computer. Per risolvere, finalmente, i problemi legati all'u¬ 
so pratico della macchina: per comprenderne le soluzioni 
applicative più idonee. 

Ottimo per il principiante, che intende accedere al mondo 
dellinformatica dalla porta principale, ideale per chi desi¬ 
dera approfondirne la conoscenza e acquisire in tal modo 
una professionalità sempre maggiore. 
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La rivincita del personal 


A bbiamo più volte messo in luce che fenomeni come 

l’informatica personale sono molto condizionati, agli occhi 
della maggioranza degli osservatori, dall’evolversi anche 
veloce delle mode. 

Per questo motivo ci è sembrato giusto gettare di tanto in 
tanto dell’acqua sul fuoco, sia dei facili entusiasmi privi di vero 
interesse,che degli altrettanto approssimativi attacchi denigratori 
verificatesi più recentemente. 

Chiaramente la nostra situazione di appassionati ci porta a riconoscere 
senza esitazioni un posto rilevante al personal nella vita di tutti i giorni. 
Quando poi questo fatto viene riconosciuto più o meno direttamente da 
enti sicuramente al di sopra di ogni sospetto di parzialità, è naturale la 
soddisfazione di chi spesso deve ascoltare discorsi pieni di demagogia. 

Lo spunto per queste considerazioni ci viene da quanto recentemente 
verificatosi per quello che rimane uno degli appuntamenti più seguiti 
per moltissimi italiani: la giocata al Totocalcio. 

Come è noto il Coni, che gestisce questo popolare concorso di 
pronostici, ha adottato alcune misure per diminuire il numero delle 
vincite che, giunte a livelli elevatissimi, stavano per ridurre 
drasticamente l’interesse degli scommettitori che vedevano assegnare ai 
vincitori quote assai modeste. 

La variante più singolare ed appariscente è stata quella di proporre la 
lista delle tredici partite ordinata in modo del tutto casuale e non più 
alfabeticamente suddivisa per serie decrescenti (A, B, Ci e C2) come 
sempre avvenuto in precedenza. 

Questa novità è stata introdotta per contrastare l’azione dei sistemisti 
che, grazie all’uso dei calcolatori, giocano un elevato numero di 
colonne in modo estremamente scientifico. 

Infatti esistono parecchi programmi, funzionanti anche su personal 
computer, che, oltre a sviluppare qualsiasi sistema (cosa peraltro 
ottenibile anche con metodi tradizionali consultando appositi 
prontuari), effettuano drastiche riduzioni delle colonne da giocare 
eliminando quelle con bassissima probabilità di uscita. 

Le colonne con troppi due o con improbabili sequenze di segni tutti 
uguali vengono così automaticamente scartate e Io sviluppo del sistema 
(e il relativo costo) aggiornati di conseguenza. 

I sistemi cosi corretti, pur conservando quasi intatta la loro efficacia, 
sono diventati molto più abbordabili per gruppi di scommettitori 
consorziati e le vincite sono diventate numerosissime, a scapito della 
loro entità. 

Pare che molti considerino poco efficace questa misura perché è 
generalmente piuttosto facile modificare opportunamente i programmi; 
certo che dal nostro punto di vista il fatto che molti utenti passivi di 
personal siano fortemente incentivati ad aggiornare i propri listati, 
rispolverando nozioni di BASIC, è sicuramente estremamente positivo. 
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ABBONATI A SUPER 




>Jsoft 


SUPERCOMMODORE C16, 

VIC 20, PLUS 4. 

Tutto il software e le novità. 

11 numeri con cassetta a 
L. 66.000 invece di 8.2^6©^. 
Senza cassetta L. 30.000 invece 
di L" 


Tutto il software e le novità, 

11 numeri con cassetta a 
L. 66.000 invece dDS’éetJ' 
Senza cassetta L. 30.000 invece 
di c^rsaa- 


t 


SUPERMSX. 

Tutto il software e le novità. 
11 numeri con cassetta a 
L. 66,000 invece diJJS^jeCI^’ 
Senza cassetta L. 30.000 
invece di Lj3S?6©CC^ 


Vidi-' Cestelli 5 20124 Milano 

Tel 02/683797 6880841 6880842 6880843 6888228 


E c’è anche PAPERSOFT, 

il soltware settimanale su carta che non ti costa. 


PAPERSOFT è la grande rivista in piccolissimo formato. 

In 2 edizioni (una per il Commodore 64 e l'altra per Vie 20. 
TI99/4A, Sinclair. Commodore 
16 e Plus/4) ti dà i listati dei 
programmi più interessanti per 
il tuo computer È una 
pubblicazione settimanale e 
costa soltanto L. 1.300. 

Non solo: se ti piace 
programmare puoi anche 
inviare i tuoi lavori in 
redazione. I migliori saranno 
sicuramente pubblicati e visti 
da tutti gli altri appassionati del tuo 
computer, PaperSoft è la vetrina dei 
listali. Anche dei tuoi se lo desideri. 
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Abbonarsi a una 
Super rivista 
è sicuro e conveniente. 


Vuoi ricevere a casa 
ogni mese le ultime 
novità software che 
riguardano il tuo amato 
computer? 

Abbonarsi a una delle 
cinque Super riviste è il 
modo più sicuro e 
conveniente: puoi 
rispariamire il 20% 
rispetto a quello che 
spenderesti in edicola e 












NESSUNO LE SUPERA. 



SUPERSINC. 

Per gli utenti del Sinclair. Tutto 
il software e le novità. 11 
numeri con cassetta a. 

L. 66.000 invece di L 
Senza cassetta L. 30.000 invece 
di 


Tutto il software e le novità su 
Apple e Macintosh, con listati 
anche per il Mac. L. 44.000 
invece di 

E inoltre, solo per gli abbonati, 
la possibilità di acquistare una 
ricca selezione di programmi 
a condizioni particolari (vedi 
elenco su Super Apple). 


Abbonarsi è semplice! Potete etlettuare il versamento sul C.C P n’ 19445204 inte¬ 
stato a J soli - Milano, oppure ritagliate il tagliando abbonamenti pubblicalo in 
questa pagina e speditelo allegando assegno intestato a J soli - Milano 


puoi scegliere tra due 
formule di 
abbonamento. La 
formula "solo rivista" e 
la formula "rivista più 
cassetta", che ti evita di 
digitare i lunghi listati 
che servono per far 
girare i programmi 
proposti. 

Scegli la formula 
d'abbonamento che 
preferisci e abbonati 
alla tua Super rivista. È 
il meno che tu possa 
fare per il tuo super 
computer. 


Tagliando abbonamento da inviare in busta chiusa a: 

i.soft - Ufficio Abbonamenti - Viale Restelli, 5 - 20124 Milano 


I 
I 
I 
I 
I 
I 

® Cognome 
■ Via _ 


O Abbonamento a I I numeri di Super Apple (SA) a l. 44.000 

□ Abbonamento a I I numeri di SuperCommodore C64 (SO) o l 30 000 

□ Abbonamento o I I numeri di SuperCommodore C64 (SCO con cassetta a l 66 000 

C Abbonamento o 1 I numeri di SuperCommodore C 16-VlC?0-Plus/4 (SM al 30.000 

. Abbonamento a I I numeri di SuperCommodore C16-VIC20-Plus/4 (SIC) con cassetta o l 66.000 

□ Abbonamento a 11 numeri di SuperMSX (SX) a l. 30 000 

□ Abbonamento a I I numeri di SuperMSX con cassetto (SXC) o l. 66.000 

□ Abbonamento a I I numeri di SuperSmc (SS) a l. 30.000 

□ Abbonamento a I I numeri di SuperSmc con cassetta (SSC) a l. 66.000 

□ Assegno allegato n’ _ 

□ Ho versato l'importo sul C.C.P. n“ 19445204 intestato a i.soft - Milano 

Nel caso di versamento su C.C.P. preghiamo di allegare fotocopia della ricevuta di versamento. 

_ Nome _ 


Città 

Data 


C.A.P. 


Prov. 


Firmo 











Un po’ di tutto 

• Buoni risultati di pubblico al 191110 SIM 
Hi-Fi IVES svoltosi a Milano in Settem¬ 
bre. I visitatori sono stati 162.000, supe¬ 
rando anche il record storico della passata 
edizione. I contratti firmati e l’interesse del 
pubblico confermano le tendenze attuali 
del mercato: crescita dell’altà fedeltà, buo¬ 
na tenuta per il video e gli strumenti musi¬ 
cali, leggera flessione per gli home compu¬ 
ter, sostenuti da imponenti iniziative pro¬ 
mozionali. La prossima edizione (4-8 Set¬ 
tembre 1986) sarà quella del ventennale e 
la Segreteria Generale sta già predisponen¬ 
do iniziative internazionali di importanza 
proporzionale all’occasione. 

• Giunge da Savona la notizia di una scuo¬ 
la specializzata nell’uso del computer. Per 
il secondo anno l’Istituto Tecnico Infor¬ 
matica, propone corsi di specializzazione 
per chi ha la licenza media (office automa- 
tion) o per i diplomati (tecnico program¬ 
matore). 

Scopo: preparare i giovani all’inserimento 
nel mondo del lavoro, con le opportune 
basi per comprendere i progressi della tec¬ 
nica e dell’informatica. Sono previsti an¬ 
che corsi di “produttività individuale” per 
professionisti c manager. - Istituto Tecni¬ 
co Informatica “Computer College” - Via 
Nazario Sauro, 5/6 - 17100 Savona - Tel. 
019-36275. 

• Sempre a proposito di corsi, l’Associa¬ 
zione Blaise Pascal propone a Milano 
due corsi serali, con frequenza per un tota¬ 
le di 12 ore settimanali (sabato mattina 
compreso). 

Le lezioni, svolte da professionisti dell’in¬ 
formatica che lavorano per aziende tecno¬ 
logicamente all’avanguardia, vertono su 
due temi: informatica generale e linguag¬ 
gio Cobo), microprocessori e Assembler 
Z80. 

L’inizio è previsto per i primi di Marzo, 
con termine entro il mese di Luglio. - 
Associazione Blaise Pascal - Via Ricotti, 10 
- 20158 Milano - Tel. 02-3764723. 

• Accordo EdiSoftcc-Digital Research 
per la distribuzione della versione italiana 
del GEM (Graphics Environmcnt Mana¬ 
ger) e degli applicativi sviluppati in questo 
ambiente grafico, tipico del Macintosh e 
disponibile con GEM anche per PC MS- 


DOS. - Edi-Softec S.p. A. - C.so S. Mauri¬ 
zio, 79 - 10124 Torino - Tel. 011-8396445. 

• Sirius Italiana e Robot Sciences Cor¬ 
poration hanno raggiunto un accordo 
commerciale per lo sviluppo e la 
commercializzazione di prodotti nell’area 
della robotica domestica. La Sirius, forte 
dell’esperienza di mercato acquisita con i 
prodotti della serie RB Robot, svilupperà 
sue applicazioni con specifiche innovative, 
per superare la soglia degli appassionati 
d’informatica e rivolgersi agli utilizzatori 
pratici dei personal robot. Con i nuovi 
prodotti che nasceranno dalla joint-ventu¬ 
re con la Robot Sciences, Sirius ha inten¬ 
zione di inaugurare la generazione dei Fa¬ 
mily Robot. - Sirius Elettronica S.r.I. - 
Milanofiori Pai. F2 - 20090 Assago - Tel. 
02-8245321. 

• La N.B.C. Italia ha l’esclusiva per la 
distribuzione dei computer game Activi- 
sion in Italia, completando così la gamma 
che già comprende i giochi Intcllivision. - 
N.B.C. Italia S.r.I. - Via Conservatorio, 22 

- 20122 Milano - Tel. 02-7491126. 

• F. nato il Club MSX Italia, presso la 
redazione diTìG Computer, Via dei Lavo¬ 
ratori, 124 - 20092 Cinisello Balsamo (MI) 

- Tel. 02-6123397. 



Buffer per stampanti 
e altre interfacce 

L a Delin Informatica annovera 
nel suo catalogo una serie di 
apparecchietti interessanti an¬ 
che per i lettori della nostra rivi¬ 
sta, almeno così ci pare. Si tratta, per co¬ 
minciare, del buffer per stampanti GPA 
727, capace di frapporsi tra il computer e la 
periferica scrivente mantenendo nella pro¬ 
pria memoria qualcosa come 64 Kbytc di 
testo nella configurazione massima. L’a¬ 
dattatore carica nella sua memoria i dati 
alla velocità massima consentita (tipica¬ 
mente 9.600 bps) e li passa poi alla stam¬ 
pante secondo il suo ritmo di comunica¬ 
zione, svincolando così il computer dai 
compiti connessi con il controllo della 
stampa. Quest’ultimo resta così disponibi¬ 
le per altre operazioni e può essere addirit¬ 
tura spento dopo aver scaricato il file da 










stampare nel buffer. 

Il protocollo di collegamento può essere 
seriale o parallelo (Centronics) e il costo 
del buffer (IVA esclusa) varia dalle 
243.000 lire del modello da 16 Kbyte alle 
300.000 di quello da 64. Esistono poi i 
commutatori di porta, altrimenti detti 
moltiplicatori d’interfaccia, per mantenere 
permanentemente collegate più periferi¬ 
che ad una sola uscita del computer, sce¬ 
gliendo, all’atto del loro uso, quale utilizza¬ 
re. Questa decisione può essere comunica¬ 
ta al data switch o via software (con un 
opportuno comando) o mediante l’inter¬ 
ruttore posto sull’apparecchio. 

Il costo varia dalle 157.000 lire per il com¬ 
mutatore solo hardware con un ingresso e 
due uscite Centronics, alle 243.000 per un 
Data Switch con 2 ingressi e due uscite. 

Delhi Informatica S.r.l. 

Via Baracca, rjS/U 
70127 Firenze 
Tel. 077-716767 



Programmatore di 
EPROM con Apple Ile 

E sistono diversi prodotti per ca¬ 
ricare EPROM (memorie a so¬ 
la lettura cancellabili e pro¬ 
grammabili) a partire da siste¬ 
mi di sviluppo più o meno sofisticati. La 
F.lmarc (Elettronica Marche) propone un 
programmatore universale che trasforma 
un Apple Ile o un compatibile in uno 
strumento adatto allo scopo. Il program¬ 
matore, sviluppato con un’architettura 
flessibile, consente agevoli aggiornamenti 
mediante l’uso di dischetti da 5,25” e il 
dialogo avviene mediante una serie di me¬ 
nu funzionali. 

È possibile alterare direttamente da tastie¬ 
ra il contenuto della memoria, agendo su 
blocchi di 128 byte. La configurazione mi¬ 
nima, EM09/3, comprende il software ed 
un adapter EM09/A per EPROM 
TMS2708, TMS2716 c tutte quelle a sin¬ 
gola alimentazione delle serie 25XX e 27XX 
in tecnologia MOS c CMOS fino alle 
27512. 

La configurazione massima prevede, oltre 



all’EMo9/A, un computer Lemon con 64 
Kbyte, due floppy, monitor e uscita RS- 
232C. 

E Ima re S.r.l. 

Via Tiziano,// 

60127 Ancona 
Tel. 071-81718 



Parla il PC della Sperry 

L a Casa americana ha messo a 
punto un’unità di controllo a 
voce per il suo personal compu¬ 
ter: c una soluzione alternativa 
alla tastiera c lungamente attesa, finalmen¬ 
te disponibile anche per i piccoli sistemi. 
L’unità è capace di riconoscere frasi conti¬ 
nue, non necessariamente spezzate da pau¬ 
se tra una parola e l’altra, e può ripetere 
messaggi verbali preregistrati (non di sin¬ 
tesi). 

Il modulo opzionale di colloquio telefoni¬ 
co consente di combinare il numero vocal¬ 
mente, trasmettere automaticamente una 
serie di messaggi verbali, rispondere 
all’apparecchio, raccogliere messaggi c re¬ 
gistrare le chiamate in arrivo ed in parten¬ 
za. 

Esiste inoltre la possibilità di introdurre 
comandi verbali per tutti i pacchetti che 
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operano in ambiente MS-DOS (Lotus, 
Symphony, Wordstar, ...) e comunque la 
tastiera non viene mai disattivata. Questo 
sistema ci sembra molto adatto ad applica¬ 
zioni di office automation, industriali, di 
vendita al minuto e ospedaliere, ma il vero 
passo avanti viene fatto per i portatori di 
handicap motori che hanno così un’ulte¬ 
riore possibilità di dialogo con il mondo 
della tecnologia. 

Sptrry S.p.A. 
l 'ia Pota, f 
20124 Milano 
Tel. 02-69841 



Computer tascabile 
made in Italy 

Q uesto I'iled Computer ha le 
carte in regola per interessare 
parecchie categorie professio¬ 
nali allt prese con problemi di 
introduzione e scambio di dati a distanza. 
Basato su un 6805, dispone di 8 Kbytc di 
RAM interna, sta nel palmo di una mano 
ed è dotato di cartucce personalizzate con 
programmi per le più varie necessità che 
vengono accompagnati da tastiere dedica¬ 
te (comprendenti solo i simboli inerenti 
quell’applicazione) e da memoria aggiun¬ 
tiva per i dati dell’utente. 



Le EPROM si estendono da 8 a 128 Kby- 
te, mentre le RAM autoalimentate opzio¬ 
nali vanno da 2 a 16 Kbytc e possono 
essere trasferire anche per posta, grazie alla 
loro autonomia. La presenza della porta 
RS-232 consente l’invio di dati via modem 
o via cavo. 

Lorenzo Paolini ricerca software house 
per sviluppare applicazioni e partner per 
diffondere l’uso del filed computer. 

L. Paolini S.p.A. 

Via Ostiense, 48 
00144 Roma 
Tel. 06-474)006 



Azione-lampo contro 
pirati del software 

V enerdì 20 Settembre 198 5 pres¬ 
so la Pretura civile di Milano il 
comitato dei legali Assoft ha 
ottenuto il sequestro immedia¬ 
to della cassetta software “Special Pro¬ 
gram” edita dalla Sipe S.r.l. che conteneva 
il plagio di programmi regolarmente im¬ 
portati c distribuiti dal Gruppo Editoriale 
Jackson. 

L’Assoft, a pochi mesi dalla sua costituzio¬ 
ne, è cosi riuscita ad ottenere un primo 
brillante risultato stabilendo un preceden¬ 
te per la Regione Lombardia. 

Assoft 

Via Ariberto, 20 
2012) Milano 
Tel. 02-8)7827) 


























on il programma si possono 
realizzare: 

• filtri attivi passa-basso del 
secondo ordine a componen¬ 


ti uguali: 

• filtri attivi passa-alto del secondo ordi¬ 
ne a componenti uguali; 

• filtri passa-banda a reazione multipla. 
I filtri sono stati sperimentati con fre¬ 
quenze audio (20-20.000 Hz). 

Per la realizzazione di ognuno dei tre 
tipi di filtro si parte con uno schema 
fisso. In funzione dei parametri di in¬ 
gresso, il programma dimensiona il cir¬ 
cuito. 

Il programma sceglie anche il tipo di 
operazione in funzione della frequenza 
di lavoro. 

Lo schema fisso è visualizzato sul video 
e, a scelta, sul plotter. Per i valori resistivi 


Progettazione 
di filtri attivi 

Il computer ci aiuta nel progettare filtri 
che impiegano amplificatori 

operazionali 

di Daniele Zampariolo 


FILTRO POSSA BANDO 


c 



Figura 1 - 

Un esempio di filtro 
passa-banda. 


e capacitivi calcolati, il programma for¬ 
nisce i corrispondenti valori standard o 
la combinazione di due valori standard 
che più si avvicinano al valore calcola¬ 
to. I valori standard sono contenuti nel¬ 
la serie E12 e E24 a scelta. 

I circuiti vanno alimentati simmetrica¬ 
mente rispetto a massa con + /-12 Vcc. 
Le tensioni di ingresso e uscita sono 
riferite a massa. 

Sia per il passa-alto che per il passa- 
basso, la frequenza di taglio è data da 
F = 1/2*7t*R-frC). 

Impostando F e R si può calcolare C 
oppure dando in input F e C viene cal¬ 
colato il valore di R. 


Figura Z - Circuito con filtro passa-allo. 

FILTRO PASSA ALTO 


R 



Figura 3 - Un esempio con filtro passa-basso. 

FILTRO PASSA BASSO 
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Descrizione del listato 

390-490 - Scelta del tipo di filtro da pro¬ 
gettare; vi sono 3 uscite. 

510-810 - Visualizzazione dello schermo 
generale del filtro passa-basso attra¬ 
verso istruzioni Print. 

830-870 - Vengono fornite informazioni 
relative al funzionamento dei filtri pas- 
sa-alto e passa-basso. Le informazioni 
sono comuni ai due tipi di filtro. 


880-890 - Scelta della destinazione dei 
risultati. Su carta si visualizza anche la 
fase di input. 

900-910 - Il programma richiede in input 
la frequenza di taglio del filtro. Controllo 
sul valore della frequenza introdotta. 
920-950 - Scelta del valore da introdur¬ 
re: se si ha R il programma calcola C; se 
si introduce C viene calcolato R. 
970-1020 - Richiesta di input del valore 
di C espresso in microfarad, calcolo di R 


in funzione di F e di C. 

Il programma fornisce il valore di R an¬ 
che nel caso in cui sia stato precedente- 
mente introdotto. Ciò al fine di riunire i 
dati relativi ai componenti necessari al¬ 
la realizzazione pratica. 

1030 - Il programma richiede se si vo¬ 
gliono utilizzare valori standard per R. 
Anche nel caso in cui R sia stato prece¬ 
dentemente introdotto, questa fase è u- 
tile come verifica del valore introdotto: 


i 


Listalo 1 - Il programma per progettare i filtri attivi. 

1 0 '99999999999999999999999999999999999 
20 '$$ 9 

30 '99 SCOPO DEL PROGRAMMA E' LA 9 

40 '** PROGETTATONE DEI FILTRI * 

30 '*♦ ATTIUI UTILIZZANDO CIRCUITI 9 

60 '♦* INTEGRATI OPERAZIONALI 9 

70 '99 9 

80 '99 I FILTRI PROGETTATI HANNO UN * 

90 '** RIPIEGO CON FREQUENZE AUDIO 9 

100 '9 t 

110 '9 I UALORI CALC. SIA RESISTIUI * 

120 '* CHE CAPACITIUI POSSONO ESSERE 9 
130 '9 SOSTITUITI CON UALORI STANDARD * 
140 '* CONTENUTI NELLE SERIE E12 0 * 

IS0 '* E24 * 

160 '9 9 

170 '9 NEI NODELLI CIRCUITALI FORNITI * 
180 '* LE RETI DI ALIMENTAZIONE * 

190 '9 SONO STATE OMESSE(POSSONO * 

200 '9 ESSERE USATI INTEGRATI L78123 9 
210 '* I CIRCUITI OEUONO ESSERE 9 

220 '9 ALIMENTATI SIMMETRICAMENTE * 
230 '♦ RISPETTO A MASSA C+/- 12U3 * 

240 '* * 

250 '* * 

260 '* 8. SOFTWARE 9 

270 '9 9 

280 '9 PRODUCTION * 

290 '* 9 

300 '9 BT DANIELE Zampar* folo * 
310 '9 9 

320 '* MONZA * 

330 '* 9 

340 't********************************* 
350 GOSUB4990 

360 PRINT"B PROGRAMMA PROGETTAZIONE FIL 
TRI ATTIUI CON AMPLIFICATORI 0PERAZI0 
NALI " 

370 PRINT :PRINT"FILTRI SPERIMENTATI CON 
FREQUENZE AUDIO " 

380 PRINT :PRINT“ ALIMENTAZIONE + 0-12 
UOLT 

390 PRINT :PL0T OFF :PRINT"SCEGLI IL TIPO 
PI FILTRO DA PROGETTARE: " 

400 PRINT" pasca basso CPL3" 


410 PRINT" Pasca alto CPH3" 

420 PRINT" passa banda CPB3" 

430 PRINT:INPUTZ*:IFCCZ*<>"PL"3*(Z*<>"PB 

" 3*CZ*<> "PH" 3 3THENPRINT :PRINT"BB0BBBB(Mflf 

SCELTA OBBLIGATA ":GOTO390 

440 IFZ«-"PL"THENGOSUB560 

450 IFZ*-"PH"THENPH=t:GOSUB1200 

460 IFZ*="PB"THENPH-0:GOSUB1500 

470 PRINT :PRINT" UUOI PROGETTARE UN ALT 

RO FILTR07CS/N3":PL0T OFF 

460 INPUTU*:IFC CU«<>"S"3*CU*<>“N"3 3THEN4 

70 

490 IFU«-"S"THEN390 
500 END 

5|0 '******************************** 

520 '* 

530 '* CALCOLO FILTRO PASSA BASSO 
540 '* 

550 ********************************* 

560 PRINT"8" 

570 PRINT" CBE0E0E0E0E0E0E0E0E 

0E0E0E0D4CAE0E0E0E0E0D3 


580 PRINT" 

FD 

FD 

C 

590 PRINT" 

FD 

FD 


S00 PRINT" 

FD 

FD 

E3 

610 PRINT" 

R FD R 

C5ED 


FO 

620 PRINT" in E0E0EEEOEEEDE0D1E0EEEDEEED 
F0D2E0E0E0E0E0C5+ED FD 


630 PRINT" 

FD 

C5 E 

D FD 

640 PRINT" 

FD 

C5 

EDC4C470E3 O out 

650 PRINT" C 

- 

C5 E 

E E2 

660 PRINT" 

09 

C5 E 

E E2 

670 PRINT" 

FD 

C4C4C5- 

EE ED 

680 PRINT" schema generalo 

FD 

C7 C5EE 

EE R b 

690 PRINT" filtro attivo 

FD 

C7 C9 
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Progettazione di filtri attivi 


SHARP MZ-700 


Seguito listato Progettazione filtri attivi. 


ED 


700 PRINT" passa basso 
EE 

FD C7 

710 PRINT" 

FD 

FD C7 

720 PRINT" 

E0E0E0E0E0E0D3 

FD CAE0E0E0 

730 PRINT" 

FD 

FD 

740 PRINT" 

ED 

FD 

750 PRINT" massa 

EE R a 

E0E0E0D3 

760 PRINT" 

ED 

FD 

770 PRINT" 

FD 

EE 

C4C4C4C4£4C4C4C47E 

780 POKE56070» 240 

790 POKE54022, *6A 

7AC4C4C4C4 


B00 PRINT SPRINT" PUSH fi KET TO CONTINUE 

» « 

• 

010 GETUI * : IFU1*«" "THEN810 
820 PRINT :PRINT"BPER Lfi REALIZZAZIONE SI 
IMPIEGANO RESISTORI CON TOLLERfiN 

ZA 5x" 

830 PRINT :PRINT"FORMULA FREQUEN2fi DI TflG 
LIO " 

840 PRINT" Fo-1/C2*r:|cR*C) " 

850 PRINT :PRINT" IL GUfiDfiGNO IN BflNDfi Pfi 
SSfiNTE E'FISSO E UALE 1.586 C+4 dB)" . 
860 PRINT iPRINT" GUfiDfiGNO fiLLfi FREQUENZA 
DI TAGLIO» 1dB Al di la' della freq. d 
I taglio la risposta diminuisce di 4 

0 dB per decade C12 dB PER OTTAWA)" 

870 PRINTSPRINT" DAT#' IL UflLORE DI C SI 
PUÒ' DETERMINARE IL UflLORE DI R OPPURE 
INTRODUCENDO IL UfiLORE DI R SI DETERM 

INA IL UfiLORE DI C IN FUNZIONE DELLA FRE 
OUENZA DI TAGLIO"SPRINT 
880 PRINTSPRINT" UUOI I RISULTATI SU CAR 
Tfi (S/N) ?":INPUTO0*siFO0«-"S"THENGOTO37 
80 

880 IFO0«O"N"THEN880 

300 PRINTSPRINT" INTRODUCI IL UfiLORE DEL 
Lfi FREQUENZA DI TAGLIO IN Hz " 

310 INPUTFCsIFCCFC<»0) + (FC>20000))THENPR 
INT SPRINT" UALORE FUORI GAMMA"SGOTO300 
920 PRINTSPRINT" UUOI INTRODURRE IL UfiLO 
RE DI C 0 IL UALORE DI R CC/R) " 

930 INPUT TI* 

940 IF T1*«”C"THENGQTO970 

950 IF T1*<>"R"THENPRINT SPRINT" SCIELTA 

OBBLIGATA" --GOTO920 

960 GOT01090 

970 PRINT"INTRODUCI IL UALORE DI C IN MI 
CROFARAD " 

980 INPUTCA 


990 RE-1/[2*I*FC*CA*C1/10000003) 

1000 PRINTSPRINT" Ra UfiLE 47000 OHM " 
1010 PRINT" Rb UALE 27000 OHM " 

1020 PRINTSPRINT" R UfiLE "iREi" OHM " 
1030 PRINT SPRINT" UUOI UTILIZZARE UALORI 
STANDARD DI R ? [S/N]" : INPUTE1* :IFE1*»" 
S"THENGOTO2020 

1040 PRINTsPRINT" C UALE "iCA;" MICROFAR 
AD "SPRINT sPRINT" UUOI UTILIZZARE UALORI 
STANDARD PER C ? [S/NI " 

1050 INPUTE1 * :IFE1*»"S"THENK3*»"2":RE-CA 
SGOTO2020 

1060 IFFO150THENPRINTSPRINT"INTEGRATO - 
LM 318 ":GOTO1080 

1070 PRINTSPRINT"INTEGRATO - 741 CO 747 
0 MCI 458) " 

1080 GOTO1130 

1090 PRINT" INTRODUCI IL UALORE DI R IN 
OHM " 

1100 INPUT RE 

1110 CA-C1/C2*I*RE*FC))*1000000 
1120 GOTO1000 
I130 RETURN 

1 140 '******************************** 
1150 '* 

1160 '* • ROUTINE CALCOLO FILTRO 
1170 '* PASSA ALTO 
1180 '* 

1190 '**t****t************t*t*tt****** 
1200 PRINT"B" 

1210 PRINT" CBE0E0E0E0E0E0E0E0 

E0E0EEEOEEEDE0E0E0E0E0D3 


1220 PRINT" 

FD 

1230 PRINT" 

FD 


FD 

FD 

R 

1240 PRINT" 

FD 


FD 

E9 

1250 PRINT" 

C 

FD C 

C5ED 


FD 


1260 PRINT" in E0E0E0D4CAE0E8D1E0D4CAE0F 
0E0D2E0E0E0F0E0C5*ED FD 


1270 PRINT" 

ED fd 

FD 


C5 

'280 PRINT" 

EDC4C.470E3 U out 

FD 


C5 

1290 PRINT" 

EE E2 

EE 


C5 

1300 PRINT" R 

EE E2 

ED 


C5 

1310 PRINT" 

-EE ED 

EE 

C4C4C5 

1320 PRINT" 

E EE R a 

ED 

C7 

C5E 

1330 PRINT" 

ED 

FD 

C7 

C9 

1340 PRINT" schema 9 enerale 
EE 

FD 

C7 


1350 PRINT" filtro attivo 

FD 

FD 

C7 
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La nuova Stampante 
Professionale IBM 4201 è stata 
studiata proprio per il Personal 
Computer IBM: è così piccola da 
stare su qualsiasi scrivania e da 
andar bene per qualunque tasca, e ti 
consentirà di sfruttare al massimo le 
grandi potenzialità della parola 
scritta. 

E infatti una stampante versatile, 
ad alta velocità e dalle caratteristiche 
tecniche molto avanzate. Ecco cosa 
può fare: 

Funzioni differenziate: è in 
grado di stampare note e rapporti 
per segretarie, memo per dirigenti, 


schemi per il direttore delle vendite, 
relazioni di lavoro per tecnici e 
scienziati. E se vuoi usare le sue 
funzioni grafiche, riprodurrà 
perfettamente i tuoi disegni. 

Velocità differenziata: la nuova 
Stampante Professionale IBM può 
facilmente cambiare velocità 
secondo le tue esigenze. 40 caratteri 
al secondo (cps) per documenti di 
alta qualità, 100 caratteri per testi e 
200 per normali lavori di stampa. 

Stampa differenziata: tre “modi 
testo” che producono fino a 18 
combinazioni di stili di stampa. 

Puoi scegliere fra un’ampia gamma 











Da oggi c’è una nuova 
stampante per il tuo 
Personal Computer IBM. 



di caratteri e di simboli, che ti 
permettono di lavorare in molle 
delle lingue europee, utilizzando 
anche particolari simboli tecnici. 
Puoi perfino creare un alfabeto fatto 
da te, con tutti i simboli che ti 
servono per il tuo lavoro. 

Alimentazione differenziata 
per la carta: la Stampante 
Professionale utilizza sia moduli 
continui che fogli singoli. 

Ma, diversamente da altre stampanti, 
non devi cambiare il cassetto per la 
(•alla tutte le volte che cambi 
formato. 

Infatti, c’è una 
fessura nella 


parte anteriore, attraverso la quale 
puoi introdurre carta da lettere e 
buste, per avere stampe immediate. 

E infine il prezzo. 

11 costo di acquisto e di esercizio di 
questa stampante IBM è 
proporzionale alle sue dimensioni: 
molto ridotto. 

Se vuoi avere più informazioni, vai 
dal Concessionario IBM Personal 
Computer (gli indirizzi sono sulle 
Pagine Gialle). E un vero esperto. 

IVr consulenza o acquisii, 

puoi anche rivolgerli al Negozio - -■ —— 

I lìM Cent rom il ano o al tuo 5 j _ _ ——— 

Rappresentante IBM. ~~ 7 — 
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Seguito listato Progettazione filtri attivi. 



1360 PRINT" posso olio 
0EBE0E0E0E0E0D3 
1370 PRINT" 

FD 

1380 PRINT" 

ED 

1390 PRINT" mosso 

EE R b 
1400 PRINT" 

ED 

1410 PRINT" 

EE 

4C4C4C4C4C4C4C4C47E 

l 1420 POKE56070 , 240 

1430 POKE54022,*68 
1440 GOTO800 
1450 '******************************** 
1460 '* 

1470 '* CALCOLO FILTRO PASSA BANDA 
1480 '* 

1490 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

1500 PRINT"B"SPRINTSPRINT 

1510 PRINT" O2E0E0E0D4CAE0E0E0E0E 

0E0E0E0E0E0E0E0E0D2 


1520 PRINT" 

FD c 

F 

D 



1530 PRINT" 

FD 

C 4C4EEEDEEE 

DC4C4 FD 



1540 PRINT" 

FD 

FD R3 C7 

FD 



1550 PRINT" 

RI FD c 

FD E9 C7 

FD 



1560 PRINT" 

FD 

FD C5F.D C 

7 FD 



1570 PRINT" 

In E0EEEDEEED81E0E0E0D4CAE0E0 

E0DIE0C5-ED 

C7 FD 


1580 PRINT" 

EE 

C5 EDC4D 

AC4C47E 



1590 PRINT" 

ED R2 

C5 EE 

ECC4 



1600 PRINT" 

EE 

C4C4C4C5+EE 

0 out 



1610 PRINT" 

EDC4C4C4C4C4C4DAC5 C 

5EE 



1620 PRINT" 

C7 

C9 

1630 PRINT" 

C7 


1640 PRINT" 

C7 


1650 PRINT" 

massa 



1660 POKE 695+53248+2048,240 

1670 POKE 695+53248,$6B 

1680 PRINT :PRINT" SCHEMA FILTRO PASSA BA 

NDA " 

1690 PRINTiPRINT:PRINT"BBB0BBB0 PUSH A K 
ET ” 

1700 GETW< : IFW*=""THEN1700 

1710 PRINT iPRINT" FREQUENZA CENTRALE Fc 

II 

1 720 PRINT :PRINT"Fc=C 1/C2*r*CJ)*C C 1/-R35* 


ED CAE0E0E 

FD 

FD 

E0E0E0D3 

FD 

FD 

7AC4C4C4C 


CCR1+R2VCR1*R23 JTC1/'2)J" iPRINT 
1730 PRINTSPRINT" UUOI SU CARTA CS^N) ?" 
• INPUTO0ÌiIFO0*="S"THENGOTO4660 
1740 IFO0t<>"N"THENGOT01730 
1750 PRINT SPRINT" INTEGRATO USATO IN 
CONFIGURAZIONE INUERTENTE "IPRINT 
1760 PRINT"INTRODUCI LA FREQ. CENTRALE I 
N Hz ":INPUTF0:IFC CF0<=03+ CF0>200001) 
THENPRINT SPRINT" UALORE FUORI GAMMA ":GO 
TO)760 

1770 PRINT SPRINT" INTRODUCI LA LARGHEZZA 
DI BANDA IN Hz " 

1780 INPUTLA : IFLAO0THENGOTOI 770 

1790 Q-FG-'LAiPRINT iPRINT" Q UALE "?Q:PRI 

NT 

1800 PRINT" INTRODUCI IL GUADAGNO DELLA 
FREQUENZA CENTRALE " 

1810 INPUTG0 : IFQ<“C tG0/2ITC 1 ■'2Ì 3THEN1800 
1820 PRINTSPRINT" INTRODUCI IL.UALORE DI 
C IN MICROFARAD" 

1830 INPUT CA •• IFCA<«0THEN1 820 
I 840 RI •=CQ/C2*JC*G0*CA*F0I 3*1 000000 
1850 R2-C Q*1000000)/C2*I*F0*CA* C 2* C QT2 ì- 
G0J3 

1860 R3-CQ*1000000VCZ*F0*CA) 

1870 PRINT SPRINT" RI vo I e "JUSING"###### 
t»t»tt#.t»tt#t»t»tt#tt" JR1 ! SPRINT" OHM" sRE-RI 
1880 PRINTsPRINT" vuol utilizzare valori 
standard per RI CS/'NI" : INPUTE1 * : IFE1 
S"THENK3$“"A"SGOTO2020 

1890 PRINT"BBBfflBBBB R2 vale "JUSING"#### 
######. t»tt###tt#tttt" 5R2; SPRINT" OHM" :RE“R2 
1900 PRINTsPRINT" vuol utilizzare valori 
standard per R2 CS/N]" :INPUTE1 ♦ :IFE1 «*■" 
S"THENK3*«"B"SGOTO2020 

1910 PRINT"BBBBBBBR3 vale "lUSING"###### 
##t»tt. #########" !R3 i SPRINT" OHM" sRE=R3 
1920 PRINTsPRINT" vuol utilizzare valori 
standard per R3 CS/'NI" : INPUTE1 * : IFE1*-" 
S"THENK3*-"C"SGOTO2020 

1930 PRINTsIF F0<100THENPRINT" INTEGRATO 
741 "sGOTOI950 

1940 PRINT" INTEGRATO LM 318 " 

1950 RETURN 
i960 
1970 '0 

1980 '0 CALCOLO UALORI STANDARD 
1990 '9 DI RESISTENZA E CAPACITA' 

2000 '9 

2010 '0000000000000000000000000068080 

2020 D IMA C 900)> BC600D 

2030 PRINTsPRINT" QUALE SERIE UUOI UTILI 
ZZARE ‘TRA LA E24 E LA E12 ? C24/125 " 
2040 INPUTQ0* 

2050 PRINT"BBBBBBBBP L E A S E U A I 
T " 

2060 PRINTsPRINT 
2070 IFQ0*="24"THENGOTO2230 
2080 IFQ0*O"l2"THENPRINTsPRINT"LA SERIE 
RICHIESTA NON E' A DISPOSIZIONE "SG0T02 
2090 HI=12 
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Progettazione di filtri attivi 


SHARP MZ-700 


Seguito listato Progettazione tiltrl attivi. 

2)00 AC n».00001 

2)10 AC23=.000012 
2)20 AC33-.000015 
2130 AC43-.000018 
2140 AC53-.000022 
2150 AC63“.000027 
2)60 AC73-.000033 
2170 AC83-.000039 
2180 AC33-.000047 
2130 AC103-.000056 
2200 AC115-.000068 
2210 AC123-.000082 
2220 GOTO2480 
2230 HI“24 
2240 AC13-.00001 
2250 AC23-.000011 
2260 AC33-.000012 
2270 AC43-.000013 
2280 AC5)=.000015 
2230 AC63-. 000016 
2300 AC73-.000018 
2310 AC85=.00002 
2320 AC33".000022 
2330 AC 100“.000024 
2340 AC 11)-.000027 
2350 AC 123“.00003 
2360 AC133-.000033 
2370 AC 143 = .000036 
2380 AC 153=.000039 
2330 AC163-.000043 
2400 AC 173 = .000047 
2410 AC 180 = .000051 
2420 AC 193“.000056 
2430 AC203=.000062 
2440 AC2I 3 = .0000.68 
2450 AC223-.000075 
2460 AC233-.000082 
2470 AC243-.000031 
2480 NR-H1 
2430 FORICI T011 
2500 FORI=1TOH1 
2510 NR-NR+1 

'2520 ACNR3-ACI3*C10TK3:IFACNR3>10THENACN 
R3-1NTCACNR33 
2530 NEXTI.K 

2540 PRINTSPRINT" UUOI UEDERE LA SERIE C 
ONPLETA ? CS/N3 ":INPUTEI* :IFE1*“"S"THEN 
FORI-1TONR:pRINTAC13 sNEXTl SPRINT 
2550 Kl-C.00001*.0000113/C.0000213 
2560 IF C C RE <KI3 + C RE> 3100000 3 3 THENPRINT" 
UALORE FUORIGANHASTOP 

2570 PRINTSPRINT" ATTENDI PER LA RICERCA 
DEL UALORE PIU' PROSSinO"SPRINT SPRINT 
2580 N1N=+2*C10T303sFORl-lTONR 
2530 SCI3-ABSCRE-AC133 
2600 IFCBC13 <NIN3THENNIN“BC 13 =P1 - I 
2610 NEXTI 

2620 PRINT" IL UALORE CONTENUTO NELLA 
SERIE RICHIESTA CHE PIU' SI AUUICIN 


A AL UALORE DESIDERATO E' "SPRIN 

T 

2630 PRINT" ";ACP13 

2640 PRINTSPRINT" CON UNA DIFFERENZA DI 

"ÌBCP13 

2650 CI-BCP1 O/'ACPl 3 

2660 PRINT SPRINT" DIFFERENZA / UALORE 
DESIDERATO - ";C1SC2-C1*100 
2670 PRINT: PRINT" ERRORE PERCENTUALE " 

I 

2680 PRINTUSING"tttt. tttttttMt" ìC2 
2690 PRINTSPRINT” HAI A DISPOSIZIONE UN 
UALORE E UUOI UTILIZZARLO PER OTTENER 
E IL UALORE DESIDERATO ? CS/N3 " 

2700 INPUTOI* :IFOI*-"S"THENGOTO3500 
2710 IFQ1 *<>"N”THENGOTO2690 
2720 PRINTSPRINT" UUOI CHE IL UALORE 
DESIDERATO SIA CALCOLATO CODE SONDA DI 
2 UALORI INCLUSI NELLA SE-RIE RICHIESTA 
9 [S/N]" 

2730 INPUTOI* 

2740 IFQ1*-"S"THENGOSUB2800 
2750 PRINTSPRINT" UUOI CHE IL UALORE 
DESIDERATO SIA CALCOLATO CODE PARALL 
ELO DI 2 UALORI INCLUSI NELLA SERIE RIC 
HIESTA 9CS/N3” 

2760 INPUTQ2* ‘ 

2770 1FQ2*“"S”THENG0SUB3I30 

2780 IFK3*<>"2"THENGOTO3460:'RED RITORNO 

2790 GOT01060 

2800 H2=0 

2810 H2=H2+1 

2820 IFCACH23 <RE3THEN2810 
2830 H2=H2-1 

2840 PRINTSPRINT" CALCOLO DEL UALORE RIC 

HIESTO COME SONDA CON TOLLERANZA l*"sE1- 

RE-rRE*C 1^1003 :E2=RE-RE*C1/1003 

2850 FORI-1T0H2 

2860 F0RJ-1T0H2 

2870 E3-ACI 3+AC.J 3 

2880 IFCCE3<E13*CE3>E233THENPRINT" I UAL 
ORI SONO ";ACI3i" "JACJ3SGOTO3120 
2830 NEXTJ.I 

2900 COLOR,,0.7:PRINT" IL UALORE PIU' U1 
CINO RAGGIUNTO DALLA SONDA NON RIENTRA 
NELLA TOLLERANZA DEL 1* CON LA SERIE E 
"5Q0* sCOLOR,,7,0 

2310 PRINTSPRINT" CALCOLO DEL UALORE RIC 
HIESTO CODE SONDA CON TOLLERANZA 2.5*":E 
l“REi-RE*C2.5/1003 sE2-RE-RE*C2.5/1003 
2320 F0RI-1T0H2 
2330 F0RJ-1T0H2 
2340 E3=AC13+ACJ 3 

2950 IFCCE3<E13*CE3>E23 3THENPRINT" I UAL 
ORI SONO ";ACI3I" "JACJ3SG0T03120 
2360 NEXTJ.I 

2370 COLOR,,0,7SPRINT" IL UALORE PIU' UI 
CINO RAGGIUNTO DALLA SONDA NON RIENTRA 
NELLA TOLLERANZA DEL 2.5* CON LA SERIE 
E'"iQ0*sCOLOR,,7,0 
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2380 PRINT SPRINT" CALCOLO DEL UALORE RIC 

HIESTO CODE SONIIA CON TOLLERANZA 5*”:E1- 

RE+RE*C5/1003 :E2-RE-RE* C5/10833 

2390 F0RI-1T0H2 

3000 F0RJ-1TQH2 

3010 E3-ACI3+ACJ3 

3020 IFC CE3<E1 3*CE3>E23THENPRINT" I UALO 
RI SONO "5ACI3 j" ";ACJ3JG0T03120 

3030 NEXTJ, I 

30*30 COLOR, ,0,?:PRINT" IL UALORE PIU' UI 
CI NO RAGGIUNTO DALLA SOIItlA NON RIENTRA 

NELLA TOLLERANZA DEL 5» CON LA SERIE E 
"S 00* : COLOR,i7,0 

3050 PRINT SPRINT" CALCOLO DEL UALORE RIC 
HIESTO COME SOIWA CON TOLLERANZA 10*“ SEI 
-RE+RE*C10/1003:E2-RE-RE*C10/1003 
3060 FORI=1T0H2 
3070 F0RJ-1T0H2 
3080 E3-ACI3+ACJ3 

3030 IFCCE3<EI3*CE3>E23THENPRINT" I UALO 
RI SONO ";ACI3i“ "JACJ3SGOTO3120 
3100 NEXTJ,I 

3110 PRINT" IL UALORE PIU' U1CIN0 RAGGIU 
NTO DALLA SOItCIA NON RIENTRA NELLA TOLLE 
RANZA DEL 18* CON LA SERIE E " !Q0* 

3120 RETURN 
3130 H2-NR 
3)10 H2-H2-1 

3150 IFCACH23>RE3THEN3I10 
3160 H2=H2+1 

3170 PRINTSPRINT" CALCOLO DEL UALORE 
RICHIESTO CONE PARALLELO CON TOLLERAN 
ZA 1*"SEI-RE+RE*C1/1003sE2-RE-RE*C1/1003 
3180 FORI=NRT0H2STEP-1 
3130 FORJ -NRT0H2STEP-1 
3200 E3-CACI3*ACJ33/CACI3+ACJ33 
3210 IFC CE3<E13*CE3>E23 3THENPRINT" I UAL 
ORI SONO " ; AC 13»" "IACJ3SGOTO3150 

3220 NEXTJ,I SPRINT 

3230 COLOR,,0,7:PRINT" IL UALORE PIU' UI 
CINO RAGGIUNTO DAL PARALLELO NON RIEN 
TRA NELLA TOLLERANZA DEL 1* CON LA SERI 
E E ">Q0* sCOLÒR,,7,0 

3210 PRINTSPRINT" CALCOLO DEL UALORE 
RICHIESTO COME PARALLELO CON TOLLERAN 
ZA 2.5*"sei-RE+RE*C 2.5/100 3 sE2-RE-RE*C2. 
5/1003 

3250 F0RI-NRT0H2STEP-1 

3260 F0RJ-NRT0H2STEP-1 

3270 E3-CACI3*ACJ33/CACI3+ACJ33 

3280 IFC CE3<E13*CE3>E233THENPR1NT" I UAL 

ORI SONO "JACI3j" "JACJ3:GOTO3150 

3290 NEXTJ,I SPRINT 

3300 COLOR,,0,7sPRINT" IL UALORE PIU' UI 
CINO RAGGIUNTO DAL PARALLELO NON RIEN 
TRA NELLA TOLLERANZA DEL 2.5* CON LA SE 
RIE E ";Q0*sCOLOR,,7,0 

3310 PRINT SPRINT 1 . 1 CALCOLO DEL UALORE RIC 
HIESTO C0I1E PARALLELO CON TOLLERANZ 


A 5*"sE1-RE+RE*C5/1003:£2=RE-RE*C5/1003 s 
PRINT 

3320 FORI-NRT0H2STEP-1 

3330 FORJ“NRT0H2STEP-1 

3310 E3*CACI3*ACJ33/CACI3+ACJ33 

3350 IFC CE3<E13*CE3>E23 3THENPRINT" I UAL 

ORI SONO ";ACI3i" "JACJ3SGOTO3150 

3360 NEXTJ,I 

3370 COLOR,,0,7SPRINT" IL UALORE PIU' UI 
CINO RAGGIUNTO DAL PARALLELO NON RIEN 
TRA NELLA TOLLERANZA DEL 5* CON LA SER 
IE E “JQ0*sCOLOR,,7,0 

3380 PRINT SPRINT" CALCOLO DEL UALORE RIC 
HIESTO COME PARALLELO CON TOLLERANZ 

A 10*" SEI-RE+RE#C 10/1003 sE2*=RE-RE#C 1 0/1 0 
03 SPRINT 

3390 FORI-NRT0H2STEP-1 
3100 FORJ «NRT0H2STEP-1 

3110 E3-CACI3*ACJ33/CACI3+ACJ33 
3120 IFCCE3CE13*CE3>E23 3THENPRINT" I UAL 
ORI SONO "JACI3 !" ";ACJ3SGOTO3150 

3130 NEXTJ,I 

3110 PRINT" IL UALORE PIU' UICINO RAGGIU 
NTO DAL PARALLELO NON RIENTRA NELLA T 
OLLERANZA DEL 10* CON LA SERIE E ";Q0# 
3150 RETURN 

3160 IFK3«-"A"THENGOTO1890 
3170 IFK3#-"B"THENGOTO1910 
3180 IFK3*="C"THENG0T01930 
3190 GOTO 1010 

3500 PRINTsPRINT"INTRODUCI IL UALORE CHE 
HAI " 

3510 INPUTRX 

3520 IFRX3RETHENGOTO3630 

3530 IFRX-RETHENPRINT" UALORE COINCIDENT 

E ":GOTO2220 

3540 PRINT SPRINT" CALCOLO COME SOtirtA" sni 

N-2*10T33SFORI-1T0NR 

3550 Zl-ABSCACI3+RX-RE3 

3560 IFCZ1 <I1IN3THENniN-Zl :K I = I 

3570 NEXTI 

3580 PRINTsPRINT"IL UALORE CHE PIU SI AU 
UICINA A QUELLO DESIDERATO E' "JACK! 

3 

3590.PRINT" DIFFERENZA DAL UALORE UOLUTO 

";niN 

3600 PRINT"DIFFERENZA / UALORE UOLUTO 
1I1IN/RE 

3610 PRINT" ERRORE PERCENTUALE ="iCniN/R 

E3*I00 

3620 GOTO2720 

3630 PRINTSPRINT" CALCOLO COME PARALLELO 

" sTlIN“2*l 0T33 SFORI - ! TONR 

3640 ZI=ABSC C CAC13*RX3/CAC13+RX33-RE3 

3650 IFCZI <niN3THENt1IN-Zl : K1 = I 

3660 NEXTI 

3670 PRINT:PRINT"IL UALORE CHE + SI AUUI 
CINA A QUELLO DESIDERATO E' "1ACKI3 
3680 PRINT" DIFFERENZA DAL UALORE UOLUTO 
" miN 
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Seguito listato Progettazione filtri attivi. 

3690 PRINT“DIFFERENZA / UALORE UOLUTO =" 
JNIN/RE 

3700 PRINT" ERRORE PERCENTUALE ="iCf1IN/'R 
E)*I00 

3710 GOTO2720 

3720 '@eee@ae@@e@@e@ 0 @@@@e@ 0 e@ 0 e@e@ 0 e 
3730 '0 

3740 '0 COSTRUZIONE DEL CIRCUITO 
3750 '0 PASSA BASSO SU STANPANTE 
3760 '0 

3770 '000@0@@000@@0@0000000@@00000000 

3780 NODETN:SKIPI3 
3790 IF PH-1THEN4240 

3800 PH=0 :f10DEGR :f1OUE0. 260 :PCOLOR0 =GPRIN 
TC3,0],"FILTRÒ PASSA BASSO" 

3810 NOUE0,260,0,0 SPCOLOR0 
3820 HOUE CI3*5),50 :RLINE30,0 :PC0L0R3 : '00 
80080.-RLINE5, 10,5,-20,5,20,5,-20,5,20,5, 
-20,5,10 

3830 PCOLOR0 JRLINEC12*5),0,-30,0,0,C13*5 
),CI8*5),0 

3840 PC0L0R2 :RHNE 1 0,0,0, 1 0, 0,-20 :RI10UE1 

0,0:RLINE0,20,0,-10,20,0 

3850 PCOLOR0:RLINEC19*5),0,0,C-11*5),0,C 

-30),40,0,-C10*5), 0 

3860 PCOL.OR1 :RLINE-10,0,-50,30,0,-60,50, 
30 

3870 PCOLOR0:RNOUE20, 0 :RLINE0, -20 

3880 PC0L0R3: FOR12-1T02:RLINE0,-10,-10,- 

5,20,-5,-20,-5,20,-5,-10,-5,0,-10:NEXT 

3890 PCOLOR0--RLINE-10,0,20,0 

3900 RNOUE-5,-5 

3910 RLINE-10,0 

3920 Rf10UE5, -5 

3930 RLINE2.5,0 

3940 Rf1OUE0, C 12*5) :PCOLOR0 

3950 RLINE-100,0,0,40,25,0 

3960 PCOLOR0 !Rf1OUE0,40 

3970 RLINE-17*5, 0 :RN0UE.-35,0 

3980 PC0L0R3:'0000800:RLINE5,S,-20,5, 

20,5,-20,5,20,5,-20,5,10 

3990 PCOLOR0 :RNOUE30,0 

4000 RLINE0,-50 

4010 PCOLOR2:RLINE0,-20,10,0,-20,0 

4020 RNOUE0,-10 

4030 RLINE20,0,-10,0,0,-20 

4040 PCOLOR0 5RLINE0,-30,10,0,-20,0 

4050 RNOUE4,-5:RLINE12,0 

4060 RNOUE-4,-5:RL1NE-5,0 

4070 N0UE210,-30:GPRINTC2,0),"C" 

4080 RNOUE-20,100 :GPRINTC2,0),"R" 

4090 RflOUE-100, 0 :GPRINT[2, 0) , "R" 

4100 RNOUE130,70:GPRINT[2,0],"C" 

4110 NOUE320, 0 : GPRI NT [ 1,0], 

4120 RNOUE-10,40:GPRINTt1,0), 

4130 NOUE400,40 :GPRINTC1,0),"Uout" 

4140 N0UE410,-20:GPRINT[1,0),"Rb" 

4150 N0UE41 0, -60 :GPRI*NTt 1,0), "Ra" 


4160 nOUE20,20:GPRINTC1,0),"Uin" 

4170 '@@@0@@8@@@@@@@@@@@@@8@@@@@@@80@@0 
4180 '8 

4190 '0 REALI ESAZIONE CIRCUITO FILTRO 
4200 '0 PASSA ALTO SU PLOTTER 
4210 '8 

4220 '000008000800008000000000000800808 

4230 NODETN :SKIP10:PLOT ON :GOTO900 

4240 flODEGR :FORI=0TO3 =N0UEI, 260 SCOLORI : 

GPRINTC3.0),"FILTRO PASSA ALTO":NEXT 

4250 NOUE0,260,0,0:PCOLOR0 

4260 NOUEC 13*5), 50 -'RLINE30,0 : 'PCOLOR3000 

8800RLINE5,10,5,-20,5,20,5,-20,5,20,5,-2 

0,5, 10 :PC0L0R2 :RLINE15,0,0, 1 0,0,-20 :R110U 

E10,0:RLINE0,20,0,-10,10,0 

4270 PCOLOR0 :RLINCC12*5),0,-30,0,0,C13*5 

),C18*5),0 

4280 PC0L0R3:RLINE5,10,5,-20,5,20,5,-20, 
5,20,5,-20,5,10 

4290 PCOLOR0 sRLINEC19*5),0,0,C-11*5),0,C 
-30),40,0 >-C10*5),0 

4300 PCOLOR1:RLINE-10,0,-50,30,0,-60,50, 
30 

4310 PCOLOR0 :Ri1OUE20,0 -"RLINE0, -20 

4320 PC0L0R3:F0RI2“1T02:RLINE0,-10,-10, 

5,20,-5,-20,-5,20,-5,-10,-5,0,-10:NEXT 

4330 PCOLOR0:RLINE-10,0,20,0 

4340 RNOUE-5,-5 

4350 RLINE-10,0 

4360 RN0UE5.-5 

4370 RLINE2.5.0 

4380 RTIOUE0, C 12*5) :PCOLOR0 

4390 RLINE-100,0,0,40,25,0 

4400 PCOLOR0 :RNOUE0,40 

4410 RLINE-17*5,0 :RN0UE-35> 0 

4420 PC0L0R2:RLINE15,0,0,10,0,-20 :RNOUE1 

0,0:RLINE0,20,0,-10,10,0 

4430 PCOLOR0:RNOUE30,0 

4440 RLINE0,-50 

4450 PC0L0R3:RLINE0,-10,-10,-5,20,-5,-20 

,-5,20,-5,-10,-5,0,-10 

4460 PCOLOR0:RLINE0,-30,10,0,-20,0 

4470 RNOUE4,-5 :RLINE12, 0 

4480 RNOUE-4,-5:RLINE-5,0 

4490 N0UE210,-30:GPRINTC2,0),"R" 

4500 RNOUE-20,100:GPRINTC2,0),"C" 

4510 RNOUE-100,0 =GPRINTC2,0],"C" 

4520 RNOUE130,70 :GPRINTC2,0],"R" 

4530 N0UE310,0:GPRINTC1,0],"-" 

4540 RNOUE-10,40 SPRINTO,0)," + " 

4550 NOUE400,40:GPRINTII,0),"Uout" 

4560 NOUE410,-20 :GPRINTC1,0), "Rb" 

4570 N0UE410,-60 :GPRINTC1,0),"Ra" 

4580 NOUE20,20 SPRINTO,0),"Uin" 

4590 NODETN JSKIP10 :PLOT ON:GOTO900 
4600 '00000000000000000000080000080003 
4610 '8 

4620 '0 CIRCUITO FILTRO PASSA BANDA 
4630 '8 SU CARTA 
4640 '0 
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4650 7 

4660 MODETN :SKIP1 7 :MODEGR:FORI=0TO3:MOUE 
I,300 SCOLORI:GPRINTC3,03,"FILTRO PASSA 
BANDA"tNEXTI 

4670 MOUE0,300,0,0:PCOLOR0 
4680 RMOUE50,0:RLINE30> 0 

4690 'Resistenza ORIZZONTALE:PC0L0R3 :RLI 
NE5,10,5,-20,5,20,5,-20,5,20,5,-20,5, ]0 
4700 PCOLOR0:RLINEC15*5),0,C-12*5) , 0,0, - 
30,0,C27*53,100,0 

4710 'condensatone or i zzonta I e'-PC0L0R2 :R 
LI NE 10,0,0,-10,0,20 :RM0UE1 0,0 : RLI NE0, -20 
,0,10,15,0 

4720 PCOLOR0ORLINEC20*53,0,0,024*53,50, 
0, C — 14*53,0 

4730 PC0L0R1 :RLINE-50,30,0,-60,50,30 

4740 PCOLORB ! RMOUE-50,—20 

4750 RLINE-25,0,0,-C13*53 

4760 RLINE-10,0,20,0 

4770 RMOUE-4, -5:RLlNE-9> 0 •■RN0UE3, -5 

4780 RLINE2,0 

4790 MOUEC35+30+50+15*53,0 
4800 'condensatore orizzonlaI e:PC0L0R2:R 
LINE 10,0,0,-10,0,20:RM0UE10,0:RLINE0,-20 
,0,10,15,0 

4810 PCOLOR0:RLINE(14*5 3,0,-25,0,12*5, 
35,0 

4820 'Resistenza ORIZZONTALE=PC0L0R3:RLI 
NE5,10,5,-20,5,20,5,-20,5,20,5,-20,5,10 
4830 PCOLOR0:RLINE25,0 
4840 MOUEC16*5+503,-30 

4850 PC0L0R3:RLINE 10,-5,-20,-5,20,-5, -20 

,-5,20,-5,-20,-5,10,-5 

4860 PCOLOR0:RLINE0,-30,10,0,-20,0 

4870 RM0UE5,-5 :RLINE9,0:RM0UE-5,-5 

4880 RLINE2,0SCOLORI 

4890 MOUE0,-1 0 :GPRINTC 1,03,"Uin" 

4900 MOUE80,20 =GPRINTC1,03,"RI" 

4910 MOUEC50+5*83 , -80 =GPRI NT [1,03, "R2" 
4920 NOUEC80+5*233,20:GPRINTC1,03,"C" 
4930 RN0UE25,5*22:GPRINTC1,03, "C" 

4940 NOUEC50+5*523,I5*5:GPRINTC1,03, "R3" 
4950 PC0L0R3 ^MOUEC47+5*503,-5:GPRINT[1,0 
3,"-" 

4960 RNOUE-9,-35:GPRINTC1,03,"+" 

4970 NOUEC50+5*653,-35:GPRINTC1,03, "Uout 

4980 NODETN:SKIP10:PH=! SCOLORI :PLOTON:G 

OTOI750 

4990 PRINT"H" 

5000 A$=" C8C8C8C8 C8 C8 C8C8C8C8C8 
C8C8C8E9 C8 

5010 B*=" C8 C8 C8 C8 C8 C8 

C8 

5020 C*=“ C8 C8 C8 C8 C8 C8 

C8 

5030 D*=" C8C8C8 08 C8 C8 C8C8 
C8C9 C8 

5040 E*=" C8 C8 C8 C8 C8FEE3 


C8 

5050 F*=" C8 C8 C8C8C8 C8 C8 F 
EE9 C8 

5060 CURS0R5,4:PRINTC7,23" 

II 

5070 CURS0R5,5:PRINTC7,23A*+" " 

5080 CURS0R5,6:PRINTC7,23B4+" " 

5090 CURS0R5,7:PRINTC7,23C4+" " 

5100 CURS0R5,8:PRINTC7,23D4+" " 

5110 CURSOR5,9:PRINTC7,23E*+" " 

5120 CURS0R5,10:PRINTC7,23F*+" " 

5130 CURS0R5,11:PRINTC7,23" 

5140 CURSORI6,13 : PRINTC7,33"PRODUCFD" 
5150 CURSORI9,14 SPRINTC7,33"BY 
5160 CURS0R14,15:PRINTC7,33"Z. 

Il 

5170 CURS0R5, 17 :PRINTC0,73 11 
ITTEN 

5180 CURS0R5,I8:PRINTC0,73" 

BT 

5190 CURS0R5,I9:PRINTC0,73" 

ZAMPARIOLO 
5200 COLOR,,6 
5210 FOR X=1 T05STEP3 
5220 FOR T=4 T045 
5230 SET X,T,7 
5240 NEXT T 
5250 NEXT X 
5260 FOR X=4 T08STEP3 
5270 FOR T-4 T045 
5280 SET CX+673,T,7 
5290 NEXT T 
5300 NEXT X 
5310 FOR X=4 T071 
5320 FOR T-4 T06STEP2 
5330 SET X,T, 7 
5340 NEXT T 
5350 NEXT X 
5360 FOR X=4 TO 71 
5370 FOR T-41T0 45 STEP2 
5380 SET CX3,T,7 
5390 NEXT T 
5400 NEXT X 
5410 COLOR,,7;I 

5420 FOR 1=1 TO 3000 
5430 NEXT 
5440 CLSiCLR 
5450 RETURN 


SOFTWARE 

UR 
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Progettazione di filtri attivi 


SHARP MZ-700 


esso deve essere contenuto nelle serie 
commerciali disponibili. 

1060-1070 - Il programma effettua la 
scelta del tipo di amplificatore opera¬ 
zionale da utilizzare nel circuito in fun¬ 
zione della frequenza di lavoro. 

È fornito il tipo di integrato da utilizzare. 
1200-1440 - Visualizzazione mediante i- 
struzioni Print dello schema generale 
del filtro passa-alto. 

1500-1690 - Visualizzazione schema 
passa-banda. 

1730 - Il programma richiede se si desi¬ 
derano I risultati su carta. 

1760 - È richiesto l'input della frequenza 
centrale del filtro e controllo sul dato 
inserito. 

1770 - É richiesta la larghezza di banda. 
1790 - è fornito il valore di O, coefficien¬ 
te di qualità del filtro. 

1800 - £ richiesto il guadagno alla fre¬ 
quenza centrale di lavoro. 

1820 - £ richiesto il valore di C espresso 
in microfarad (alle linee 1840-1860 è 
calcolato il valore di RI, R2 e R3). 

1870 - Il programma fornisce il valore 
calcolato per RI. 

1880 - £ fornita la possibilità di utilizzare 
valori standard per RI. 

1960 - Routine per il calcolo dei valori 
standard è applicata rispettivamente a 
RI, R2 e R3. 

2030-3720 - Richiamo della routine che 
fornisce valori standard equivalenti al 
valore calcolato di R. 

3790-4240 - Viene tracciato su carta lo 
schema generale dei due filtri. 

Anche se nel diagramma le operazioni 
sono riunite in un solo blocco, nel listato 
esse sono due fasi distinte situate in due 
punti diversi (vedere Rem). 

4240 - Istruzione Plot On. Visualizza 
contemporaneamente su video e su 
carta i risultati. 

Tutti i valori di ingresso sono controllati 
affinché risultino inclusi nelle gamma di 
calcoli eseguibili dal programma. 

Dalla riga 5000 alla riga 5410 è realiz¬ 
zata la presentazione. 

La parte dei commenti può essere eli¬ 
minata al fine di economizzare memoria 
utile. 

Nel listato al posto dei caratteri grafici 
costituenti lo schema, sono visualizzati i 
codici ASCII di essi. ■ 



Arrivano i Quaderni Jackson, 
fanti volumi monografici per co¬ 
noscere bene il personal computer 
e l'informatica. 

Nei quaderni Jackson c'è tutto 
quello che è importante sapere 
sui computer, la programmazio¬ 
ne, i linguaggi, il software, le 
applicazioni e i nuovi sviluppi 
dell'informatica. 

Quaderni Jackson: l'informa¬ 
tica a tutti i livelli, in una collana 
aperta, pratica, essenziale, aggior¬ 
nata. 

L'informatica tascabile per chi 
vuole saperne di più e compiere 
così un salto di qualità nel mondo 
di oggi e di domani. 

Ogni mese, 2 volumi. 


Volumi già pubblicali: 

Gianni Giaccagiini 

“Vivere col Personal Computer" 

Paolo Bozzolo 

"Dentro e fuori la scatola" 

Enrico Odetli 

"Ed è subito BASIC Voi. I" 

"Ed è subito BASIC Voi. Il" 

Paolo Capobussi 
e Marco Giacobazzi 

"A ciascuno il suo Personal” 

Fulvio Francescani 
e Fernando Paterlini 

"To do or not to do" 

In edicola, 
a sole lire 6.000. 


SAN FRANCISCO LONDRA MtANO 
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Sprite 

per 

disegnare 

Ecco un programma completo 

per la grafica 

di Massimo Modelli 


S i tratta di un programma per 
disegnare sullo schermo che 
fa uso di una routine pubbli¬ 
cata sul numero di Settembre. 
Si disegna tramite tastiera o joystick 
che, grazie all'uso congiunto con le 
routine Sprite della R.S.J., risulta sempli¬ 
ce da usare e veloce. Chi non dispones¬ 
se della R.S.J. non deve preoccuparsi, in 
quanto i codici di quella routine, prepa¬ 
rati per lavorare con le routine Sprite, 
sono contenuti nel programma. 
Vediamo di cosa si tratta: all'accensio¬ 
ne del programma lo schermo risulta 
diviso in due parti; nella parte bassa ci 
sono diverse figure di oggetti per dise¬ 
gnare e i simboli di alcuni comandi, 
mentre la parte principale risulta vuota 
salvo una piccola matita disegnata nel 
centro dello schermo. Premendo un ta¬ 
sto del gruppo {O.P.L.I} la matita si 
muove sullo schermo in una delle quat¬ 
tro direzioni, mentre premendone due 
simultaneamente si ottiene un movi¬ 
mento lungo le diagonali. Se muovendo 
la matita si tiene premuto il tasto F essa 
lascia dietro di sé una traccia. È possibi¬ 
le cambiare oggetto portando la matita 
nella parte bassa dello schermo pas¬ 
sando dove la linea che separa le due 
sezioni si interrompe: automaticamente 
all'oggetto che si sta usando si sostitui¬ 
sce una freccia per indicare che si è 
entrati in modo comandi. A questo pun¬ 
to è sufficiente portare la freccia sull'og¬ 
getto che si desidera utilizzare e preme¬ 
re il tasto F; la selezione dell'oggetto 
viene segnalata da un avviso acustico: 
tornando nella parte alta dello schermo 
(passando in questo caso anche attra¬ 
verso la linea di separazione) la freccia 
viene immediatamente cambiata con il 
nuovo strumento. Ovviamente le moda¬ 
lità di utilizzo sono le stesse per ogni 
strumento. Gli oggetti a disposizione 
sono i seguenti: una matita, un penna¬ 
rello, un pennello, una bomboletta di 
spray, un cancellino, una piccola gom¬ 
ma per cancellare, una squadra e un 
compasso. 

La stessa procedura deve essere se¬ 
guita per selezionare i comandi; essi 
sono i seguenti: velocità 1, 2 e 3, Load, 
Save e Stop. I comandi di velocità per¬ 
mettono di selezionare la densità della 
traccia lasciata dai vari oggetti e la rea¬ 
lizzazione di interessanti effetti. Il co¬ 
mando Stop permette, oltre ovviamente 
alla terminazione del lavoro, anche la 
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continuazione dopo aver pulito lo 
schermo. 

Come si vede il programma è molto 
semplice da usare e la presenza di 
squadra e compasso permette la realiz¬ 
zazione di figure precise oltre a quelle 
realizzabili a mano libera con gli altri 
strumenti; a proposito dei primi due og¬ 
getti il loro uso è leggermente diverso da 
quello degli altri ed è utile vedere più in 
particolare come usarli. Entrambi gli 
strumenti necessitano in input di due 
punti, rispettivamente gli estremi del 
segmento o il centro e l'altro estremo del 
raggio del cerchio da tracciare. Questi 
punti sono forniti posizionando la squa¬ 
dra o il compasso e premendo il tasto F: 
nel caso la circonferenza non stia nello 
schermo l'operazione viene abortita e 
viene emesso un segnale acustico. Co¬ 
me riferimento per “mirare" i punti biso¬ 
gna prendere l'angolo retto della squa¬ 
dra o la punta in alto a sinistra del com¬ 
passo. Dopo ogni operazione questi 
due oggetti sono riposizionati sul primo 
punto (questo comportamento può ve¬ 
nire cambiato agendo sul programma). 
Oltre ai tasti sopra segnalati il pro¬ 
gramma registra anche la pressione del 
tasto O, per mezzo del quale è possibile, 
congiuntamente al tasto F, lasciare un 
singolo segno, ad esempio tracciare un 
punto per volta o cancellare solo la zo¬ 
na coperta dal cancellino. 

Come si può vedere il listato è molto 


corto e in gran parte costituito da com¬ 
menti e linee di Data, questo grazie alla 
routine Sprite che svolge il grosso del 
iavoro. Vediamo quindi come preparar¬ 
la per questa applicazione in riferimen¬ 
to alle fasi di lavoro del programma rilo¬ 
catore (in tabella 1 sono comunque ri¬ 
portati tutti i valori relativi alla prepara¬ 
zione della routine). 

Rilocazione : la memoria esterna al 
BASIC, sopra al valore di RAMtop, è oc¬ 
cupata dalle due routine dei dati riguar¬ 
danti la grafica, o meglio la definizione 
delle forme e delle maschere degli sprite 
in uso: l'indirizzo scelto per l'origine di 
Sprite (64255) consente di accodare a 
questa la R.S.J. lasciando in cima alla 
memoria spazio sufficiente per la grafi¬ 
ca. In realtà tale spazio (più di 300 byte) 
basta largamente per i dati neccessari, 
che sono stati posizionati in corrispon¬ 
denza dei caratteri grafici. Tale scelta 
porta a due vantaggi: in primo luogo gli 
indirizzi delle singole forme e maschere 
sono facilmente ottenibili per mezzo 
della funzione Usr conoscendo i carat¬ 
teri a cui vengono fatti corrispondere; 
inoltre i caratteri grafici risiedono tutti 
nella stessa pagina di memoria, ovvero 
in un insieme di locazioni aventi lo stes¬ 
so valore della parte alta del loro indiriz¬ 
zo, cosa questa, come è stato spiegato 
nel precedente articolo, senz'altro van¬ 
taggiosa. Per ovvia comodità i due 
blocchi costituenti Sprite sono stati riio- 
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Corrispondenza tra direzioni, valori e tasti (tra parentesi) 

Primo gruppo: 

• 1 
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. «• Fire = 16 (F) 
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Secondo gruppo: 
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. n Flre = 16 (0) 

/ 
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•• I 

tu • 

RAMtop 

64000 

Origine 

64996 

Key Indirizzo 1 

65152 

Key Indirizzo II 

65153 

Rag Indirizzo 1 

65150 

Flag Indirizzo II 

65151 

Conservazione valore 

No 

Entry 

64996 

Exit 

65003 

Programm 

65010 

Conservazione registro 

65185 

Salvare la routine 


dall’origine 

(64996) 


RAMtop 

Rllocazione 

Routine di Controllo 

Routine Sprite 

60000 

da 64255 
da 64291 


a 64290 
a 64995 


Controlli 





Start 

64257 




Stop 

64264 




Routine ausiliaria (R.S.J.) 

65010 




Sprite 





Data 

64826 




Maschera 

Or 




Switch 

64435 




Programmazione aprite 0 





Indirizzo Pat. 

65368 




Indirizzo Maschera 

0 




Indirizzo Dir. 

65153 




Bordi 

0 

255 

16 

191 

Velocità 

1 

1 



Ritardo 

0 




Delay 

1 




Old posizione 

120 

255 



New posizione 

120 

255 



Programmazione sprite 1 





Indirizzo Pat. 

65480 




Indirizzo Maschera 

0 




Indirizzo Dir. 

65153 




Bordi 

0 

255 

0 
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Velocità 

2 

1 



Ritardo 

0 




Delay 

1 




Old posizione 

120 

255 



New posizione 

120 

255 



Sprite 2-7 





Old posizione 

XXX 

255 



New posizione 

XXX 

255 




Tabella 1 - Dati relativi alla preparazione della routine Sprite. 


Tabella 2 - Dati relativi alla preparazione della routine R.S.J. 


cati in modo da occupare zone conse¬ 
cutive di memoria. 

Controlli : poiché la gestione della ta¬ 
stiera è stata affidata a una opportuna 
routine, la R.S.J., bisognerà a questo 
punto fornire alla routine Sprite l'indiriz¬ 
zo a cui chiamarla ad ogni ciclo di ese¬ 
cuzione (cioè 50 volte al secondo). Que¬ 
sto indirizzo (65010) è quello che nel 
suo programma di rilocazione viene in¬ 
dicato col nome Programm e non è da 
confondere con l’indirizzo, chiamato 
Entry, che serve per mandarla in esecu¬ 
zione automatica; non è infatti possibile 
che due routine vengano eseguite si¬ 
multaneamente parallelamente al BA¬ 
SIC se non si trovano entrambe sotto la 
supervisione di un'unica routine di con¬ 
trollo, e in questo caso la routine di 
supervisione appartiene alla routine 
Sprite in quanto appositamente studia¬ 


ta per eseguire un duplice controllo. Per 
quanto riguarda la R.S.J. tutti i dati rela¬ 
tivi alla sua preparazione sono conte¬ 
nuti nella tabella 2. Chi disponesse del 
programma per la preparazione di que¬ 
sta routine potrà cambiare alcuni valori, 
in particolare i gruppi di tasti da control¬ 
lare per realizzare il movimento; si può 
notare che quelli scelti corrispondono a 
due gruppi completamente indipenden¬ 
ti, mentre l'indipendenza non è garanti¬ 
ta per una qualunque scelta di tasti: 
infatti per le caratterisiche della lettura 
della tastiera dello Spectrum la pressio¬ 
ne di più di due tasti può portare alla 
rilevazione di tasti "fantasma” e cioè 
non realmente premuti; non è comun¬ 
que questo il luogo per indicare come 
effettuare la scelta dei tasti per evitare 
questo effetto indesiderato, ma lo stes¬ 
so risultato si può ottenere per tentativi. 


Definizione sprite : si può passare a 
questo punto direttamente alla defini¬ 
zione delle caratteristiche degli sprite, in 
quanto la modalità di funzionamento 
della maschera viene selezionato come 
opportuno durante il programma a se¬ 
conda del tipo di oggetto scelto. Gli 
sprite usati dal programma sono i nu¬ 
meri 0 e 1 e quindi è importante che i 
rimanenti siano preparati in modo da 
essere spenti (le componenti Y di Pos, 
Old & New, dovranno avere il valore 
255). Nel seguito ci accuperemo solo 
dei due sprite usati. Questi svolgono 
due distinte funzioni e cioè il primo, lo 
sprite 0, viene utilizzato nella parte alta 
del video per rappresentare gli strumen¬ 
ti da disegno, mentre il secondo svolge 
la funzione, nella parte bassa dello 
schermo, di cursore per la selezione, in 
modo comandi, delle funzioni da attiva- 
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re. A questa divisione logica fa riscontro 
la divisione fisica delle finestre dei due 
sprite, che li confina nelle rispettive zone 
di azione (i bordi sono definiti come 
segue: 0 < = X < = 255 e 

16< = Y< = 191 per lo 0 e 
0 < = X < = 255 e 0 < = Y < = 23 per 
l’I). Alcuni dei valori relativi allo sprite 0 
sono in ogni caso definiti dal program¬ 
ma nell'inizializzazione e durante l'uso, 
e pertanto non è necessario che il loro 
valore sia proprio quello della tabella: è 
invece indispensabile che i seguenti pa¬ 
rametri abbiano esattamente il valore 
indicato; Ind Dir, Bordi, Old & New Pos. 
In particolare il valore di Ind Dir corri¬ 
sponde alla locazione usata dalla R.S.J. 
per comunicare il valore ottenuto dalla 
lettura dei tasti del gruppo {0,P,l,L,0}. É 
invece possibile modificare il valore di 
Ritardo per ottenere un minor numero 
di movimenti dello sprite per secondo, 
rendendo cosi più precisa la guida degli 
strumenti; per compensare il corrispon¬ 
dente rallentamento è possibile modifi¬ 
care nel programma i valori corrispon¬ 
denti alle tre velocità. I valori alterabili 
relativi allo sprite 1 sono, oltre a Ritardo, 
quelli delle componenti di Velocità. 

Un ulteriore elemento su cui si può 
intervenire per personalizzare il pro¬ 
gramma è la grafica, e in particolare le 
maschere: queste infatti determinano il 
tipo di segno lasciato dai diversi oggetti 
e quindi caratterizzano fortemente il ti¬ 
po di grafica ottenibile. In figura 1 sono 
riportate le forme delle maschere, ed in 
corrispondenza di ognuna di esse è in¬ 
dicato lo strumento a cui sono associa¬ 
te e il modo di funzionamento richiesto: 
analizzando i risultati del loro uso è fa¬ 
cile modificarle secondo i propri gusti 
cambiando le caratteristiche degli og¬ 
getti a cui si riferiscono. Nella tabella 4 è 
invece riportata la corrispondenza tra i 
caratteri grafici e le forme e maschere 
degli sprite: si può notare che per lo 
sprite 0 le maschere sono memorizzate 
in fila dopo le forme e che sono nello 
stesso ordine; questo semplifica, nel 
passaggio da un oggetto ad un’altro, 
l'individuazione dei caratteri grafici as¬ 
sociati. 

Per utilizzare il programma è necessa¬ 
rio seguire questa procedura: copiare il 
listato 1 e salvarlo su cassetta, caricare 
il programma del mese scorso e pro¬ 
grammare la routine con i dati della 
tabella 1, indi salvarla sulla stessa cas- 



Carattere: I 
Oggetto: Matita 
Modo: Or 
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Carattere: L 
Oggetto: Spray 
Modo: Or 



Carattere: J 
Oggetto: Pennarello 
Modo: Or 


Carattere: M 
Oggetto: Cancellino 
Modo: And 
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Carattere: K 
Oggetto: Pennello 
Modo: Or 



Carattere: N 
Oggetto: Gomma 
Modo: And 


Figura 1 - Forma delle maschere e caratteri gralici corrispondenti. 


Tabella 4 - 
Corrispondenza 
Ira caratteri gralici 
e simboli; 
il Tipo 
può essere 
(rispetto agli sprite) 
Forma 
o Maschera. 


Sprite 

Caratteri 

Tipo 

Oggetto 

Modo 

0 

A 

F 

Matita 


0 

B 

F 

Pennarello 


0 

c 

F 

Pennello 


0 

D 

F 

Spray 


0 

E 

F 

Cancellino 


0 

F 

F 

Gomma 


0 

G 

F 

Squadra 


0 

H 

F 

Compasso 


0 

1 

M 

Matita 

Or 

0 

j 

M 

Pennarello 

Or 

0 

K 

M 

Pennello 

Or 

0 

L 

M 

Spray 

Or 

0 

M 

M 

Cancellino 

And 

0 

N 

M 

Gomma 

And 

1 

o 

F 

Cursore 


Simboli 

p 


Velocità 1 


di 

0 


Velocità 2 


comandi 

R 


Velocità 3 



S 


Linea di 
separazione 
zona comandi 
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setta a seguito del programma. Chi di¬ 
sponesse del programma per preparare 
la R.S.J. potrà evitare di copiare le linee 
di Data ad essa corrispondenti e sosti¬ 
tuirle con il comando "Load “R.S.J.” 
Code". Ovviamente la routine dovrà ve¬ 
nire salvata a seguito della routine Spri¬ 
te sulla stessa cassetta dopo averla pre¬ 
parata secondo i dati della tabella 2 
(questa routine è stata pubblicata sul 
numero 21 di questa rivista). Se il pro¬ 
gramma sarà stato salvato con l'opzio¬ 
ne di Auto-Run dopo il caricamento, ver¬ 
rà caricata anche la routine (o le routi¬ 
ne) e si potrà subito iniziare il lavoro. 

Anche se l'inizio effettivo del program¬ 
ma è alla linea 8000 grazie alle prime 
due linee è possibile far partire il pro¬ 
gramma dalla linea 1 con i comandi 
Run o Goto 1: il primo sarà da usarsi 
desiderando cancellare lo schermo per 
iniziare con la pagina bianca, il secon¬ 
do nel caso si desideri riprendere il lavo¬ 
ro senza cancellare la grafica presente. 
Ciò può tornare comodo desiderando 


inserire nella grafica prodotta, dei testi, 
nel qual caso si dovrà appunto fermare 
il programma e introdurli con delle istru¬ 
zioni Print; sarà poi possibile rientrare 
nel programma per eventuali ritocchi e 
per salvare il lavoro svolto. 

Sperando di aver chiarito i criteri con 
cui la routine è stata preparata e le cose 
da avere presenti prima di iniziare la 
preparazione, lasciamo ora la parola 
alla parte più importante, e cioè alla 
spiegazione del listato: chi non avesse 
afferrato bene le spiegazioni teoriche 
dell'articolo scorso, troverà in questo 
programma delle utili esemplificazioni 
dei concetti espressi; un'attenta lettura 
di questi commenti dovrebbe fugare o- 
gni dubbio, mettendovi in grado di uti¬ 
lizzare le routine Sprite per i vostri pro¬ 
getti software. 


REMarks 

1-2 - Queste prime due righe hanno la 


funzione di far partire il programma dal¬ 
la sezione di inizializzazione senza do¬ 
versi ricordare numeri di linea, sempli¬ 
cemente con il comando Run. La prima 
verifica se il programma ha già girato 
controllando il valore della RAMtop: se è 
il primo Run allora salta alla linea 8000, 
dove viene settato il valore della RAM¬ 
top e vengono caricate le routine e i 
codici dei caratteri grafici; altrimenti l'e¬ 
secuzione passa alla 8030 per ripristi¬ 
nare i valori iniziali. 

10-30 - In queste linee vengono definite 
due funzioni di frequente utilizzo nel 
programma: la prima, “h(A)'', restitui¬ 
sce la parte più significativa del valore 
che le viene passato, considerandolo 
come valore a due byte; questo valore 
dovrà essere compreso tra 0 e 65.535. 
La seconda, “l(A)'\ restituisce ovvia¬ 
mente la parte meno significativa e cioè 
calcola A Mod 256. 

40-80 - Queste linee costituiscono la 
routine di controllo del lavoro con tutti 
gli strumenti tranne squadra e compas- 
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so. La linea 50 provvede ad attivare o 
disattivare la maschera in base al valo¬ 
re letto nella locazione 65152; in questa 
locazione la R.S.J. inserisce i valori del 
secondo gruppo di tasti da lei controlla¬ 
ti e cioè {R,G,V,D,F,}. Il controllo della 
maschera avviene ponendo nella loca¬ 
zione Data+ 3 (Ind Masc) o il valore 
della parte alta degli indirizzi delle ma¬ 
schere o lo 0 a seconda dell'avvenuta o 
meno pressione di un tasto del secondo 
gruppo. Ciò può avvenire poiché tutte le 
maschere (ed anche le forme degli spri- 
te) sono contenute in una zona di me¬ 
moria con la parte alta dell'Indirizzo co¬ 
stante. La linea 70 controlla l'uscita dal¬ 
la routine verificando se lo sprite ha 
urtato contro il bordo inferiore nella zo¬ 
na centrale: l'urto con il bordo viene 
rilevato leggendo nella locazione Da¬ 
ta + 18 (Bord&Sfon) un valore maggio¬ 
re di 1; le restanti letture, Data+ 17 e 
+16, permettono di determinare la po¬ 
sizione dello sprite in quanto corrispon¬ 
dono a Pos Y e Pos X (è necessario 
ricordare che l'origine delle y non coin 
cide con quella grafica, ma con l'ango¬ 
lo in basso dello schermo). 

90-260 - Inizia qui la sezione di controllo 
principale che raccorda le varie funzio¬ 
ni e presiede alla selezione degli oggetti 
e dei comandi. Si tratta di un ciclo com¬ 
posto da tre parti. 

100-130 - Nella prima viene spento lo 
sprite 1, acceso e posizionato lo 0 con lo 
stesso valore della posizione X (Da- 
ta + 16) dello sprite 1 (Data + 36) per 
dare l'impressione di continuità nel mo¬ 
vimento. La chiamata alla routine 6030 
precede l'accensione per fissare le ca¬ 
ratteristiche dello sprite 0. Poiché la va¬ 
riabile tipo caratterizza lo sprite, come 
mostrato in tabella 3, la chiamata alla 
corrispondente routine di lavoro dipen¬ 
de dal valore assunto da questa varia¬ 
bile. 

140-150 - Queste due linee costituisco¬ 
no la seconda parte del ciclo di control¬ 
lo principale, disattivando lo sprite 0 e 
attivando l'I: anche in questo caso vie¬ 
ne conservato il valore della X dello spri¬ 
te per dare l’impressione di continuità 
nel movimento. Ricordiamo che la posi¬ 
zione del dato N relativo allo sprite F si 
calcola con la seguente formula: 
Pos = Data + F1tr20 + N; la posizione del 
dato Pos X per lo sprite 1 risulta pertan¬ 
to uguale a Data + 36 e quella di Pos Y a 
Data+ 37 (N per Pos X è 16 e per Pos Y 
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17, vedi la tabella 1 dell'articolo descri¬ 
vente la routine Sprite). 

160 - Questa linea controlla il passag¬ 
gio dal modo comandi, sprite 1 acceso, 
al modo grafica: nel caso infatti che 
questo sprite urti contro il bordo supe¬ 
riore della sua finestra, l'esecuzione 
passa alla linea 100, dove vengono ri¬ 
chiamate le routine grafiche. 


Valore 

Strumento 

0 

Matita 

1 

Pennarello 

2 

Pennello 

3 

Spray 

4 

Cancellino 

5 

Gomma 

6 

Squadra 

7 

Compasso 


Tabella 3 - Corrispondenza tra II valore della 
variabile tipo e l’oggetto in uso. 


170 - Viene realizzato con questa linea il 
ciclo di attesa dei comandi: come si è 
già visto la locazione letta corrisponde 
al secondo gruppo di tasti controllati 
dalla R.S.J. e il programma resta cosi in 
attesa o di un comando o del ritorno al 
modo grafico. La funzione Not rende 
vera la condizione dell'istruzione If se il 
valore letto nella locazione è 0, provo¬ 
cando in questo caso il ritorno alla linea 
precedente. 

180 - A partire da questa linea il pro¬ 
gramma procede alla determinazione 
del nuovo oggetto o comando selezio¬ 
nato. Il numero progressivo della figura 
scelta viene determinato a partire dal 
valore della posizione X dello sprite 1 (la 
freccia) dividendolo per 16 e aggiun¬ 
gendo un fattore per la corretta centra¬ 
tura degli intervalli cosi determinati: i 
valori ottenuti, compresi tra 0 e 15. sono 
posti per ulteriori valutazioni nella varia¬ 
bile nuovo. 

190-260 - In base al valore assunto dalla 
variabile nuovo vengono aggiornate le 
altre variabili del programma che deter¬ 
minano il funzionamento degli sprite o 
vengono eseguite particolari funzioni. 
Nel caso il valore sia tra 0 e 7 si tratta di 
selezionare un altro oggetto e pertanto 
questo valore viene posto in tipo, la cui 
funzione è di determinare le caratteristi¬ 
che della forma dello sprite 0 e della sua 
eventuale maschera. I valori 8, 9 e 10 


significano che deve venire selezionata 
una delle 3 velocità (e quindi un tipo di 
tratto ), pertanto verrà aggiornato il va¬ 
lore della variabile tratto. Poiché gli altri 
valori comprendono operazioni di Load 
e Save le routine vengono in questo 
caso disattivate (alla linea 210, è questo 
l’unico caso in cui è richiesto di disatti¬ 
vare la routine per evitare possibili inter¬ 
ferenze con il sistema operativo) per 
procedere con le operazioni: il coman¬ 
do Pause 1 che si nota in questa linea 
tra l'istruzione di spegnimento dello 
sprite 1 e l'istruzione Randomize Usr 
64257 che disattiva le routine è neces¬ 
sario per accertarsi che il primo coman¬ 
do sia eseguito prima che il secondo 
faccia effetto). 

La linea 250, a cui si giunge con il co¬ 
mando Stop, propone l'alternativa tra 
questo e la sola pulizia dello schermo, a 
cui provvede eventualmente la linea 260 
con un semplice rilancio del program¬ 
ma. 

6020 - Questa routine, composta da u- 
na sola linea, provvede alla stampa del¬ 
la linea di separazione tra le due zone 
dello schermo e dei caratteri rappresen¬ 
tanti gli oggetti e i comandi: tutti i carat¬ 
teri sono da digitare in modo Graphic 
(Caps Shift + 9) salvo gli ultimi 6, "L S 
Stop". 

6030-6080 - Mentre la parte vista prima 
con il nome di "main” può considerarsi 
come l'interfaccia software verso l’uten¬ 
te, in quanto per mezzo degli input rice¬ 
vuti (posizione del cursore e pressione 
del tasto F) codifica le sue richieste, 
questa seconda parte è da guardarsi 
come l'interfaccia verso la routine Spri¬ 
te, in quanto in funzione dei valori as¬ 
sunti dalle variabili di controllo tipo e 
tratto agisce su di essa per definire le 
caratteristiche dello sprite 0. Nella prima 
linea (6040), se il tipo è minore di 6, cioè 
escludendo squadra e compasso, viene 
fornito allo sprite la parte bassa dell'in¬ 
dirizzo della maschera; come si vede in 
tabella 4 le maschere sono codificate a 
partire dal carattere grafico T. La linea 
seguente (6050) definisce invece la for¬ 
ma dello sprite, fornendo l'indirizzo 
completo della zona di memoria in cui è 
codificata (tabella 4). Dopo aver defini¬ 
to forma e maschera dello sprite si deve 
definire il modo d'uso della maschera, 
agendo sulla locazione che nel pro¬ 
gramma per preparare gli sprite era in¬ 
dicata con il nome Switch: alcuni ogget- 
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ti infatti, dovranno lasciare una traccia, 
come la matita, e pertanto andranno 
usati con la maschera in modo Or 
(quindi Poke Switch, 182); altri invece 
dovranno cancellare, come la gomma, 
e richiedono che la maschera sia in mo¬ 
do And (Poke Switch, 166). Ricordiamo 
che in modo Or ogni punto acceso della 
maschera, se attiva, viene trasferito per¬ 
manentemente sul "foglio”, mentre i 
punti spenti non modificano l'immagine 
dello sfondo; in modo And invece sono i 
punti della maschera accesi che non lo 
modificano, mentre i punti spenti can¬ 
cellano gli elementi dello sfondo su cui 
passano. Può essere utile confrontare il 
risultato delle diverse maschere guar¬ 
dando la loro forma in figura 1. Per 
ultimo alla linea 6070 viene determinata 
la velocità dello sprite, utilizzando lo 
stesso valore per la componente X e per 
quella Y: desiderando diverse densità 
del segno nelle due direzioni è sufficien¬ 
te diversificare i valori inseriti nelle due 
locazioni. 


7000-7170 - È questa la routine di servi¬ 
zio che governa l'uso di squadra e com¬ 
passo provvedendo all’input dei dati e 
alla gestione dello sprite; la realizzazio¬ 
ne grafica è invece demandata alle due 
subroutine opportune, che la realizza¬ 
no per mezzo delle funzioni BASIC. Le 
prime due linee (1720-1730) realizzano 
il ciclo di attesa del primo punto, la pri¬ 
ma controllando il ritorno al modo co¬ 
mandi e la seconda verificando la pres¬ 
sione del tasto di conferma F. Le linee 
seguenti fino alla 7085 memorizzano la 
posizione del punto nelle coordinate 
grafiche del BASIC (Ybas = Yspr-16) e 
lo marcano sullo schermo per mezzo 
della funzione Plot: è importante ricor¬ 
dare di disattivare gli sprite quando si 
disegna sullo schermo in quanto so¬ 
vrapponendo della grafica agli sprite in 
movimento si potrebbero ottenere effetti 
non prevedibili, in particolare la cancel¬ 
lazione da parte dello sprite della grafi¬ 
ca appena disegnata. Per questa ragio¬ 
ne lo sprite viene momentaneamente 


spento prima di disegnare il punto e alla 
riaccensione viene ridisegnato per mez¬ 
zo della routine di linea 7500. Dalla linea 
7090 inizia la parte che si occupa del 
secondo punto, la quale, dopo un ciclo 
di Pause per evitare che la pressione 
per il primo punto venga presa come 
conferma anche del secondo, si pone in 
attesa del tasto F. Anche per il secondo 
punto vengono memorizzate le coordi¬ 
nate e spento lo sprite, dopo di che 
viene chiamata la routine grafica corri¬ 
spondente all’oggetto utilizzato. Le li¬ 
nee 7150 e 7160 riposizionano lo sprite 
sul primo punto; se si preferisce è ovvia¬ 
mente possibile riposizionarlo sul se¬ 
condo. 

7200-7340 - Sono queste le due routine 
che provvedono alla realizzazione gra¬ 
fica con squadra e compasso: entram¬ 
be per prima cosa cancellano il segno 
sul primo punto, provvedendo poi a di¬ 
segnare il segmento o la circonferenza 
con gli estremi dati. Nel caso della cir¬ 
conferenza, un test viene eseguito per 


Listato 1 - Il programma per disegnare con gli sprlte. 


, 1 IF PEEK 23730+256+PEEK 2373 

10 04.254 THEN RUN 8000 
2 GG TG 8030 

REM Funzioni Hi e Low 
DEF FN h(a)=INT (a/256) 

DEF FN l ‘.a) = a -256+FN h (a) 

rem lEnEiaspni^aEHpiiHS 

PGKE da t.a +3 , mas cHi RND PEEK 


10 
20 
30 
4.0 
50 

65152 

70 IF PEEK (da la +18) > 1 RND PEE 
K (data+17)=23 RND PEEK (data+16 
) >=112 RND PEEK (data+lòJ <137 TH 
EN RETURN : REM urto con il bOi'd 
o inferiore 

80 GO T Q 50 _ 

R E M GE0GM3H30 
POKE data+37 7 i 


,255: REM spegn 
REM caratteri» 


90 
100 

e 1 

105 GG SUB 6030: 
t i c h e sprite 0 
110 POKE d a t a +16,PEEK (data +36) 

: POKE data+17,23: REM accende 0 
120 IF ti PO<6 THEN GG SUB 40: G 
0 TO 140 

130 GG SUB 7000: REM Squadra & 


compasso 

•140 POKE data + 17,255: REM spegn 
e 0 

150 POKE data +36,PEEK (data+16) 

: POKE data+37,23: rem accende 1 

160 IF PEEK (data +33.1 > 1 RND PEE 
K (da la+37) =23 THEN GO TO 100 

170 IF NOT PEEK 65152 THEN GO T 
0 160 

180 LET nuovo=INT (,25+PEEK (da 


ta+36)/16): BEEP .2,10 
190 IF nuovo <8 THEN LET tipomu 
OVO: GO TO 160 

200 IF nuovo<11 THEN LET tratto 
anuovo-7: GG TO 160 
210 POKE data+37,255: PRUSE 1: 
RRNDOMIZE USR 64264: REM disatti 
va Le routine» 


220 IF nuovo=11 THEN INPUT "nom 
e? LINE a$: LORD aSSCREENS 
230'IF nuovo=12 THEN INPUT "nom 
e? LINE a $ : SRUE aSSCREENS 
240 IF nuovo<13 THEN PGKE d3ta+ 
37,20: GG SUB 6010: RRNDOMIZE US 
R 64257: GG SUB 7500: GO TG 160 
250 INPUT "desideri ri corniciare 
LINE a $ 

IF a s = "s" THEN RUN 8030 
stop : REM routines 


260 
6000 
6010 
6020 
SSSS 
E F 


REM 
PR IN' 


SSSSSSS5SSS SS5 
H P 0 R L S 


SSSSSSSSS 
"fi B C D 
: RETURN 


6030 REM 


0040 

FN l ( 

bassa 

6050 

PO) : 

tipo) 

PO ' t 

6060 

THEN 

0 n e u 

6070 

d t d + 1 



caratteri 


9 ) 


1 1 p 
USR "i 
indir 
PGKE d 
POKE d 
: REM 
i PO ' 
PGKE S 
POKE £ 
so mas 
PGKE d 
1, t r a t 


0 <6 THEN POKE data+2, 
"+8*tipo): REM parte 
izzo maschera 
ata,FN 1 (USR "a"+8*ti 
ata + 1 ,FN h (USR "a"+8* 
lo sprite 0 e' del ti 


Wit C h,132 : IF tipo>3 
W it Ch,166 : REM se lezi 
c h e r a 

ata + 10,tratto : PGKE d 
to: rem selezione vel 
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accertarsi che sia tutta contenuta nello 
schermo; in caso contrario essa non 
viene tracciata e viene emesso un se¬ 
gnale acustico per avvisare dell'errore 
commesso. 

7500- 7540 - Una nota particolare va 
(atta su questa routine, che ha il compi¬ 
to di ridisegnare lo sprite. Uno sprite 
viene infatti disegnato solo quando il 
comando di movimento, ovvero il valore 
della locazione puntata da Ind Dir, as¬ 
sume un valore diverso da 0: attivando 
uno sprite quindi, questo non viene ag¬ 
giornato fino a quando non viene mos¬ 
so la prima volta e ciò risulta in taluni 
casi fastidioso. Per ovviare a questo in¬ 
conveniente è sufficiente “pokare" un 
comando con un valore tale da non 
provocare nessun movimento, ad e- 
sempio maggiore di 15: questo rimedio 
è però reso impossìbile per il fatto che in 
questo programma il controllo della lo¬ 
cazione che contiene i comandi della 
routine Sprite è affidato all'altra routine 
in linguaggio macchina, la R.S.J.. Que¬ 
sta ha però due modi di funzionamento: 
nel primo, quello usato nel programma, 
il valore della locazione controllata vie¬ 
ne costantemente posto a zero salvo 
quando almeno un tasto di quelli da lei 
controllati viene premuto; nel secondo 


modo invece il valore della locazione 
non viene cambiato sino a che non vie¬ 
ne registrata la pressione di uno dei 
suoi tasti. Il funzionamento di questa 
routine è quindi evidente: viene modifi¬ 
cato il modo di funzionamento della 
R.S.J. in maniera da permettere al co¬ 
mando di movimento fornito dal pro¬ 
gramma di raggiungere la routine Spri¬ 
te; dopo aver atteso un ciclo (Pause 1) 
la R.S.J. viene riportata nel modo usua¬ 
le. Un'alternativa a questo procedimen¬ 
to potrebbe essere quella di modificare 
il valore di Ind Dir per farlo puntare ad 
un'altra locazione in cui scrivere il valo¬ 
re per far ridisegnare lo sprite: poiché 
però Ind Dir è composto da due byte, 
per evitare che la lettura della locazione 
da parte di Sprite possa cadere proprio 
tra la modifica di questi due, si dovreb¬ 
be prima provvedere a disattivare le 
routine. 

8000-8090 - Questa parte del program¬ 
ma provvede all'inizializzazione, e cioè 
al caricamento in memoria, delle due 
routine e dei caratteri grafici; inoltre fis¬ 
sa i valori di alcune variabili usate come 
costanti e determina le caratteristiche 
iniziali dello sprite che deve essere utiliz¬ 
zato. Non tutti i parametri degli sprite 
sono aggiornati e quindi è importante 


che i dati relativi ai due sprite usati dal 
programma (0 e 1) siano inseriti per 
mezzo del programma che prepara la 
routine (vedi tabella 1). In linea 8020 
viene caricato il codice della routine 
Sprite e successivamente vengono 
chiamate le routine per la lettura dei dati 
della R.S.J. e dei caratteri grafici: chi già 
disponesse della seconda routine può 
sostituire la chiamata con il comando 
Load "R.S.J." Code Org, risparmiando¬ 
si così l'inserimento delle linee Data. Le 
variabili-costanti a cui viene assegnato 
un valore sono le seguenti: Data - Con¬ 
tiene l'indirizzo di inizio dell'area dati 
riguardanti gli sprite all’interno della 
routine Sprite; MascHi - Valore della 
parte alta dell'indirizzo comune alle ma¬ 
schere e alle forme degli sprite; Switch - 
Indirizzo su cui bisogna agire per modi¬ 
ficare il modo delle maschere (And/Or). 
Successivamente viene attivato lo sprite 
0 con le caratteristiche della matita a 
tratto continuo e il controllo viene pas¬ 
sato al Main Program. 

8100-8240 - Routine per l'inserimento 
dei caratteri grafici e linee dei Data cor¬ 
rispondenti. 

8300-Flne - Routine per l'inserimento 
dei codici della routine di controllo della 
tastiera e linee di Data dei codici. ■ 


Seguilo listalo Sprite per disegnare. 


O Cita ' 

6080 RETURN 
7000 REM 


erosa 


7010 rem primo punto 
7020 IF PEEK (data+18)>l AND REE 
K ida ta +17) =23 AND PEEK (data+16 
)>=112 AND PEEK idata+16) <137 TH 
EN RETURN : REM urto con il bord 
o inferiore 

7030 IF NOT PEEK 65152 THEN GO T 
O 7020: REM Ciclo di attesa prilli 


o punto 

704.0 LET y c =PEEK (da ta +17) -16 : R 
EM posizione y grafica 
7050 POKE d a t a +17,255 : REM disat 
t i v a sprite 0 

7060 LET xc =PEEK idata+16): REM 
posizione x grafica 
7070 PLOT OUER i,xc,yc: REM mare 
a il primo punto 

7080 POKE data+17,yc+16: REM ria 

ttiva sprite 0 

7085 GO SUB 7500 

7090 REM secondo punto 

7095 BEEP .3,30; PAUSE 1: PAUSE 

1 : PRUSE 1 

7100 IF NOT PEEK 65152 THEN GO T 


REM ciclo di attesa seco 


O 7100 
n d o punto 
7110 LET y2=PEEK (data+17)-16 
7120 POKE data+17,255 
7130 LET x2=PEEK (data+16) 

7140 60 SUB 7200+(1 1 PO=6) +7300*( 
t. i po =7) 

7150 POKE data+16,XC 

POKE data+17,yc+16 
C-0 SUB 7500 

PRUSE 8: PRUSE 1: GO TO 702 


7160 

7165 

7170 

0 

7200 

7210 

7220 


rem B agna 

PLOT uUER l,xc,yc 
IF X 2 -X C OR y2-yc THEN PLOT 
xc.yc: DRAU x2-xc,y2-yc 
7230 RETURN 

7300 rem HJiìnron 

7305 PLOT OUER 1 . XC , y C 
7310 LET raggio = INT SOR 
-x c ) t2 + ABS (y2-yc)12) 

7320 IF xc-raggio <0 OR 

>255 OR yc-raggio<0 OR „_ 

>175 THEN BEEP .5,0: REfURN 
M error 

7330 IF raggio THEN CIRCLE XC,yc 
,raggio 
7340 RETURN 
7500 REM 


1 dì segna io 


(RBS (X2 

xc+raggio 
yc + raggio 
ÌTURN : RE 
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Sprite per disegnare 


ZX SPECTRUM 


REM modi fica 
conssrvazione 


Seguilo listalo Sprite per disegnare. 

7510 POKE 65185,1: 
modo R. 5 . J. per La 
dei. valore 
7520 POKE 65153,16: REM valore 
per la soia scrittura sprite 
( > 15ì 

7530 PAUSE 1: POKE 65185,0: REM 

rip ris 1 1 n a il modo normale della 


R . 5 , 
754-0 
8000 
8005 
8010 
LS 

8020 


J. 

RETURN 

gESeinag p—— 

PAPER 1: INK 9: BORDER 1: C 
LORD l; "Spr i teCode"COC 


GO SUB 


r ni » j 

3300: 


E 
S 

8030 GO SUB 6010 
804-0 LET data=64-826: 
area dati 

8050 LET mas-:Hi =255: 
ita ind. caratteri q r 


GO SUB 8100: CL 


REM inizio 


REM parte a 
_ a f i c i 

8055 LET SW i t Ch =64-4-85 : REM indir 
izze interruttore tipo della mas 
Chera (ANO/OR) 

8060 POKE da ta + 17,90 : REM posizi 
ona la y dello sprite 0 nei cent 
r o 

8065 LET trattosi: REM tratto 
n t i n u o 

8070 LET tip o = 0 : REM matita 
8080 RANDDMIZE USR 64-257: REM 
attiva le routines 
8090 GO SUB 6030: GO SUB 7500 

tifi 

TO USR "S"+7 
8120 READ C: POKE 
8130 RETURN 
8150 DATA 128,192 
2, 56, 4-8,224,240 
7,14, 4 

“ 16, 56 

80,174 


CO 


G 


r3iìci 


■OR 


ì =USR 
NEXT i 


, 160,224. 
,248,108. 


112 . 

54. 


•a' 


il 

2 


0, 

255. 

128. 

128, 


8160 DATA 
6, 2, 0 
1, 7, 7 

8170 DATA 
9,255,255 
4 . 0, 0 

8180 DATA 
0 , '0 , 0 
6, 16, 8 
8190 DATA 
192,0,0,0,0,0 
8200 DATA 16 
2 , 0 , 0 , 

4, 40, 0 

3210 DATA 
5,231,195, 
8220 DATA 
0,192,240, 
4,78, 0 

3230 DATA 
4, 78, 0, 

2, 76, 0 

3240 DATA 


124. 

74. 


248, 

167, 


120 , 

23, 


255,255,189. 


0, 24 


134. 

96. 


152. 

83. 


129, 
60 , 

224 , 
38, 


129 . 
60, 

12S, 
33, 


18 

2 


0,0,0,0,0,0,0,192, 
0 

56,124,248,112, 3 
40, 34,170, 84,170, 8 

0,0,0,0,0,0,0,0.255,25 
195,231,255,255 


1 

0, 

0 , 

0 , 


2 , 4 

0,164 

0,164 
0,172. 


8,144 
172,164 

170,162. 
162,164. 


0.0 


16 

16 

16 

16 


255,0,0,0,0,0, 

8300 REM codici della R.5.U. 
8310 RESTORE 8350 
3320 FOR i=64996 TO 65205 
3330 READ C. POKE i,C: NEXT ì 
8340 RETURN 

8350 DATA 62, 40,237, 71,237 


4.201.237, 

1.221, 33, 
3360 DATA 

9.193, 9, 

1,230, 1, 

8370 DATA 
4,237,120, 
3, 71, 40, 
8330 DATA 

6, 5,197, 
5,126, 35, 
8390 DATA 

6.229.221, 

7, 40, 43, 

8400 DATA 
0 , 6 , 0 , 
3, 10,214, 

2, 6.255, 
3410 frATA 

3, 43, 54, 

6.168.193, 
0 , 0 , 0 , 
8420 DATA 
6,253.253, 

4,254, 


3,223. 


2 , 


8430 DATA 
2, 5,10, 

9, 4, 1, 


86,193 
130,254 
175, 33 
119, 35 
32, 4 

119,197 
6,127 
204, 6 

42,221 

70, 35 

32, 6 

221.119 
78, 42 
197,203 

71, 62 
9,198 
5, 79 
9,126 

193,167 
1, 65 
225,241 
253, 16 

254,251 
8 , 12 
239, 

12 , 

6 , 

32, 

32, 


1 

10 

16 


,225 
,245 
,252 
. 119 
, 35 
,225 
,237 
, 2 
, 54 
,237 
,221 
, 39 
,221 
, 33 
, 12 
, S 
. 203 
,221 
, 237 
,225 
, 3 
, 2 
, 8 
, 223 
, 3 
, 0 
, 9 
, 3 


,241 
, 22 ^ 
,255 
.221 
, 119 
, 1 
, 64 
,221 
, 39 
, 120 
, 134 
, 193 
, 126 
,203 
, 129 
,254 
, 127 
,229 
, 66 
, 14 
,201 
;. 253 
, 3 
, 1 
, 191 
, 2 
, 4 
, 6 


,251,20 
, 197 
, 221,22 
,126, 3 
, 35 
,254,25 
,176,20 
,112 
, 0 , 

,166, 3 
, 39 
, 16,23 

, 39,16 
, 33 
, 79,12 
, 11, 4 

, 40, 
,225 
,119, 4 
,254, 1 

r 0, 

, 4 

,254, 1 

, 2,22 

, 2,2S 

, 8 
, 1, 3 

, 16, 
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DA OGGI E MUSICA 


Musica dal calcolatore, 
musica vera, musica tua! 

Con l’unità periferica 
SOUND BUGGY, e la tastierina 
musicale SIEL da sovrapporre a 
quella alfanumerica, il tuo 
Commodore 64 si trasforma in 
un’autentica band. 

Se sei già esperto di musica 
SOUND BUGGY ti porterà alla 
perfezione. Se sei un principiante 
diventerai, in pochi giorni, 
concertista e arrangiatore, 
comporrai musica tua e potrai 
ascoltarla in una perfetta 
registrazione elettronica, 
collegandoti a ogni impianto 
stereo, videotelevisivo, 
monitor C 64. 


UN ECCEZIONALE PACCHETTO DI 
PROGRAMMI 

Grazie allo straordinario 
software di SOUND BUGGY 
potrai eseguire o comporre su 24 
ritmi (12 preregistrati), disporrai di 
ben 28 timbri strumentali 
(14 preregistrati), potrai Icorreggere, 
migliorare, registrare. 

In più, tramite interfaccia 
MIDI, SOUND BUGGY 
comunica anche con expander, 
sintetizzatori, sequencer ecc. 

Insomma, SOUND BUGGY 
è un vero prodigio dell’elettronica 
al servizio della tua creatività 
musicale. 


TUTTA LA MUSICA A COMANDO 
SOUND BUGGY mette a 
tua disposizione strumenti, ritmi, 
tempi, accordi, arpeggi, effetti 
mixati. Basta seguire a video le 
semplici istruzioni del suo 
sofisticatissimo software. Ad 
esempio il Song Edit, che si può 
considerare il cuore del SOUND 
BUGGY, consente di intervenire 
in tempo reale sui parametri 
relativi a: Solo, Rhythm, 
Accompaniment, Sequencer. 


Spia luminosa 
di corretta 


alimentazione 



Volume per lo batteria 
elettronica 


Volume per lo parte 
orchestrale 


Volume generale 


MAXIPRESTAZIONE IN MINISPAZIO 

Il rito laboratorio musicale, completo e perfetto, 
è tutto qui: il Commodore 64, il SOUND BUGGY, 
la mittitastiera SIEL, il software. 













PER TUTTI CON 




Questa Cedola 
rappresenta l’unico 
modo di ordinare 
SOUND BUGGY. e 
riceverlo completo di 
tastierina e di 
programmi su disco e 
cassetta. 

Ritagliala e spediscila 
subito. 

Usufruirai dello 
speciale prezzo 
bloccato fino al 


NI ROCK.1.. 
M? VOCI.2.. 
•1 DISCO... 


CEDOLA PRIVILEGIATA DI ACQUISTO 


SOUNDBUGGY 


Da inviare in busta chiusa a: "Filodiretto SIEL" 
SIEL Società Industrie Elettroniche s.p.a. 
CASELLA POSTALE 10823 - 20124 MILANO MI 


Sì, desidero acquistare 
SOUND BUGGY, la 
vostra unità periferico 
per C 64. Speditemela 
contrassegno completa 
di minitastiera, 
pacchetto software sia 
su disco che su cassetta, 
libretto istruzioni al 
prezzo speciale di 


L. 185.000 (incluse 
l. 27.650 IVA e L. 3.750 
di spese postali). 

E inteso che il mio 
SOUND BUGGY 
sarà proietto da 
Garanzia per 1 anno. 


Nome. 


-Cognome. 


Indirizzo. 
CAP_ 


-Località. 


H‘j BAI 1 AD . I «il SUI MB. . 

MI. MAI L AD . ? in IAM60. . 
M7 '.ft»«A . . Il MI WHW 
Un NASSA.A. I? HARCM.. 


31.12.85. 


Dato_Firma_ 

(per i minori occorre quella del genitore) 


nuovidea 










































S iamo nel Far-West e uno sce¬ 
riffo insegue, con il suo caval¬ 
lo, un pericoloso bandito che 
può essere abbattuto dopo a- 
verlo colpito per un numero di volte che 
viene stabilito in fase di inizio program¬ 
ma. Noi siamo lo sceriffo e con il tasto 
F7 possiamo sparare al bandito: se tra 
noi e lui non ci sono cespugli lo feriamo. 
Se giochiamo da soli, il VIC 20 ci chiede 
il livello di difficoltà (da 1 a 9), il bandito 
risponderà al fuoco a seconda del livel¬ 
lo scelto. Se giochiamo in due, il bandito 
sparerà se si preme la barra spazio; 
vince chi arriva per primo al punteggio 
stabilito, non si può sparare a raffica. 


Far-West 


Un appassionante gioco ambientato 
nelle verdi praterie texane 

di Michele Pasquale 


Figura 1 • Listato 1 - Il programma di presentazione 

Tabella di conversione. che carica II secondo. 


(HOME).HOME 

(CLR).PULIZIA SCHERMO 

(CUR.SU).CURSORE IN ALTO 

{CUR.OIU).CURSORE IN BASSO 

(CUR.DES).CURSORE A DESTRA 

(CUR.SIN).CURSORE A SINISTRA 

(SPC).SPAZIO 

{RVS ON).REVERSE ON 

{ R VS OFF).REVERSE OFF 

{INSTI.INSERT 

{FU.TASTO Ft 

{F2 }.TASTO F2 

(F3).TASTO F3 

{F4}.TASTO FA 

{F5 }.TASTO F5 

{F6 }.TASTO F6 

{F7 )...TASTO F7 

( F8 }.TASTO F8 

(BLACK).COL. NERO (CTRL*1) 

1WHITE).COL. BIANCO (CTRL*2) 

(RED).COL. ROSSO (CTRL*3) 

{CIANI.COL. CIANO (CTRL*4) 

(PURPLE).COL. PORPORA (CTRL+5) 

(GREEN).COL. VERDE (CTRL*6) 

{BLUE).COL. BLU (CTRL*7) 

{YELLOH).COL. GIALLO (CTRL*8) 

(ORANGE).COL. ARANCIO (CBM*1) 

(BROHN).COL. MARRONE (CBM*2) 

(LT.RED).COL. ROSSO CHIARO (CBM*3) 

{GRATI ).COL. GRIGIO 1 (CBM*4 ) 

{ GR A T2 ).COL. GRIGIO 2 (CBM+5) 

(LT.GREEN).COL. VERDE CHIARO (CBM*6) 

{LT.BLUE).COL. BLU CHIARO (CBM*7) 

{CRAY 3 ).COL. GRIGIO 3 (CBM + 8) 


I CARATTERI GRAFICI, OTTENUTI CON LA 
PRESSIONE DEI TASTI ’SHIFT' E ’CBM’, 
SONO CODIFICATI IN MODO DA INDICARE IL 
TASTO DA PREMERE ASSIEME A ’SHIFT’ 0 
' CBH'. ES. IL CUORICINO E' CODIFICATO 
CON {SH S) . 

UN NUMERO DENTRO LE PARENTESI INDICA 
LE VOLTE CHE IL TASTO VA PREMUTO. 


1 S-36878:POKES*1,25:PRINT"(CLR)(BLACK)( 
5 CUR.GIU}" 

2 PRINT"13 SPCHSH U ) ( 1 5 SH * ) { SH I)" 

3 PRINT"(3 SPC}{SH - } (15 SPC){SH -}" 

Il PRINT" {3 SPC ) ( SH - ) { 1 5 SPCHSH -}" 

5 PRINT" {3 SPC ) {SH -H3 SPC ) ( RED ) FAR-HES 
T{BLACK){4 SPCJlSH -)" 

6 PRINT"{3 SPC)(SH -)(t 5 SPCJlSH -)" 

7 PRINT" { 3 SPCJlSH - ) ( 1 5 SPCHSH -)" 

8 PRINT"{3 SPC){SH J){15 SH »){SH K)" 

10 P0KE56,28:P0KE55.250:P0KE52,28:P0KE51 
,250 

11 F0RT-7552T07679sREADX:P0KET,X:NEXT 

12 F0RT-7424T07431 : READX : POKET , X : NEXT 

13 DATAI ,1 ,119,79,1 40,1 1 1 ,1 1 1 , 127 

14 DATA0,192,0,0,0,0,0,0 

15 DATAO,6,1 24,1 36,1 40,94.63,251 

16 DATA170,255,0,0,0,0,0,0 

17 DATA 152,152,248,249,25,31 .31 ,24 

18 DATAO,0,0,48,104,234,206,254 

19 DATA255,255,255,255,255,255,255,255 

20 DATA3,3,2.3,7,7,23,31 

21 DATAO,0,0,8,140,94,63,251 

22 DATA63,127,1 91 ,60,40,36,1 8,9 

23 DATA248,240,240,240,72,72,72,1 44 

24 DATAO,6,0,0,0,0,0,0 

25 DATAO,0,16,30,158,88,56,248 

26 DATAI 91 , 1 27,63,60,40,72,1 44,32 

27 DATA248,240,240,248,68,34,17,8 

28 DATA3,3,97,63,7,7,23,31 

29 DATAO,0,0,0,0,0,0,0 

50 VL-15:C-INT(RND(0)«5):D-INT(RND(0)»15 
) : POKE7838«C»22«D,81 : POKE7 8 38-r C » 22 + D* 
30720,0 

51 VL-VL-1:IFVL-OTHEN55 

53 P0KES,VL:P0KES-1,220*VL:FORN-1TO150/V 
L:NEXT :C0T051 

55 A-A+1:IFA<4THEN50 

56 POKES-1 ,0 :POKES , 8 

60 IFB-1THEN500 

61 READP:IFP>1THENPOKES-3.0 

62 IFP--1THEN70 

63 READD 
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Far-West 



Seguito listato 1. 

65 POKES-3,p:POKES-2,P:FORN-1TOD:NEXT 
68 G0T060 

70 FORT-8TOOSTEP-1:FORN-1T0250:NEXT:POKE 
S,T:NEXT : POKES-2.0 :POKES-3,0 :POKES,15 
80 B-1:A-0:G0T050 

100 DAT A 207, “100,21 9,550,223,300,225,250, 
228,250,225,250,223,250 
105 DATA219,250,215,350,207,300,215,250, 
207,1000 

110 DATA207,400,21 9,550,223,300,225,250, 
228,250,225,250,223,250 
115 DATA219,250,215,350,207,300,215,250, 


219,1000 

1 17 DAT A 207,‘100,219,550,223,300,225,250, 
228,250,225,300,223,600 

118 DAT A 22 3,300,223, "100,225,300,228,300, 
231,800 

120 DATA235.600.231 ,300,231,300,225,600, 
237,300,231,300,231,300,225 

125 DATA600,21 9,300,228,600,21 9,300,223, 
>100,225,600,219, ‘100,215,500,21 9,500, 
-1 

500 PRINT"{3 CUR.GIU}(BLUE} PREMI PLAX E 
ATTENDI (2 CUR.GIU} UN’ATTIMO...(WH 
ITE} " 

510 POKE631,131 :P0KE632.1 3 :POKE198,2 


REMarks listato 1 


1-9 - Testata introduttiva. 

10-29 - Introduzione del set di caratteri 
grafici attraverso le istruzioni Data. 
50-80 - Simulazione degli spari e dei fori 
dei proiettili nel cartello “Far-West”. 
Lettura dei Data e elaborazione per la 
musica iniziale, 

100-125 - Linee di Data per la musica 


iniziale. 

500-510 - Lancio del secondo program¬ 
ma “West 2”. 

REMarks listato 2 

10-55 - Colore più pulizia schermo e 
disegno dello scenario. 

60-75 - Assegna i valori alle variabili per 
disegnare i due cavalieri. 


80 - Stampa i nomi vicino ai quali saran¬ 
no aggiornati i punteggi. 

100 - Variabili iniziali per il disegno dei 
cespugli (cactus). 

101 - Variabili iniziali per i proiettili e 
azzeramento suono. 

102-108 - Verifica se i cespugli sono 
fuori schermo per riportarli di nuovo 
dentro a destra. 

110-125 - Stampa i cespugli in alto e il 
prato relativo. 


Listato 2 - Il gioco vero e proprio. 

10 POKE36879,126:G0SUB2000:POKE36869,255 
:PRINT"{CLR}":CL-30720 

30 F0RT-7680T07921:P0KET + CL,3 :P0KET,54 :N 
EXT 

31 K-7921:G-0:T-2 

32 K-K + 1 :IFK-7944THEN37 

33 IFG-OTHENT-T+1:IFT<5THEN35 

3*1 G-1 :T-T-1 : IFT-OTHENG-O 

35 FORI-OTOT:POKEK*CL-(I«22).4:POKEK-(I« 
22) , 5*1 : NEXT 

36 G0T032 

37 F0RT-7922TO7965:POKET+CL,4:POKET,54:N 
EXT 

50 FORX-7966T08l85:POKEX*CL,5:NEXT 

51 FORX-8010TO80 31 :P0KEX,51 :P0KEX + CL , 7 :N 
EXT 

52 FORX-8076TO8097:POKEX,51 :POKEX + CL,7 : N 
EXT 

55 FORX«8169T08! 85 :POKEX,51 :NEXT 

60 S-8124:S1-S»1:S2-S+22:S3-S»23:B-S»10: 
B1-B+1:B2-B+22:B3-B+23:VO-36878 

70 POKES»CL,2:POKES1+CL,0 :P0KES2 +CL,0 : PO 
KES3+CL,0 

75 POKEB+CL,H:POKEB1+CL,0:POKEB2+CL,0:PO 
KEB3»CL,0:G0SUB800 

80 PRINT"{HOME}(RVS ON } (CUR.GIU}SCERIFFO 
(3 SPC } BANDITO ( *i SPC)" 

100 C C1 )-7986:C(2)-8042:C(3)-8l 31 : C ( *4 ) - 8 
1 ili 

101 SP-8126:SB-8132:P0KEV0,0:P0KEV0-1,0 

105 IFC( 1 ) -7966THENT-1 :G0SUB300:G0SUB3>0 


: C( 1 ) -7 986 

106 IFC(2)-80 32THENT-2:GOSUB300:GOSUB31 0 
:C(2)-8053 

107 IFC(3 )-8120THENT-3:GOSUB300:C(3)-81 4 
1 : GOT0110 

108 IFC ( II)-81 20THENT-l):G0SUB300:C(lt)-81 l| 
1 

110 FORT*1T02 

115 POKEC(T),32 :POKEC(T)+22,32 :POKEC(T)+ 
45+CL,7:C(T)-C(T)-1 

120 POKEC(T),52 :POKEC(T)+ 22,52:POKEC(T)» 
43+CL.5:POKEC(T)+44»CL,5:POKEC(T)*45 
+ CL , 5 

125 GOSUB800 :NEXT:G0SUB11|0 
130 F0RT-3T04 

135 GOSUB300:C(T)-C(T)-1:POKEC(T),52:P0K 
EC(T)+22,52:G0SUB800:NEXT:G0SUB140 
1 36 IFQ-1 ANDRND(0XDI/1 0THENGOSUB1 80 
138 GOT0101 

140 VL-15:A-PEEK(203):IFA-640RZ-1 ANDZ1 -1 
THENZ-0:Z1-0:RETURN 

144 IFA-32ANDZ1-0THENZ1-1 :Z-0:G0SUB180 
146 IFA-63ANDZ-OTHENZ-1: ZI-0 :GOSUB150 
148 RETURN 

150 P0KES1,50:P0KEV0-1,230 

155 VL-VL-1 : POKEVO,VL:SP-SP»1 

160 IFSP-BTHENPOKESP-1,32 :POKESP-1+ CL,5 : 

A-B:GOSUB4 00 :SP-1 :GOSUB500: RETURN 
165 IFPEEK(SPX>32THENPOKESP-1+CL,5:POKE 
SP-1 ,32: RETURN 

170 POKESP + CL,0 :POKESP,49:POKESP-1+CL,5: 

POKESP-1,32iG0T0155 
180 POKEB,63 :P0KEV0-1 ,220 
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per hobby e 



250 volumi per approfondire, 
dalle più diverse angolazioni, le 
tematiche legate al mondo del 
computer e della microelettronica. 

Per ordinare i volumi preferiti 
utilizzare l'a p posito modulo di conto 
corrente postale blu o il coupon. 


M. BENELFOUL 

Giochi, trucchi e conti: 29 programmi par Vie 20 
29 programmi pronti per gli usi più diversi, scritti 
nel BASIC Commodore. Con cassetta. 164 pagine. 
Cod. 553 D • L. 24.000 / Abbonati L. 19.200 

R. BONELLI - D. GIANNI 

Alla scoperta del Vie 20 

Per gli utenti BASIC del Vie, un libro che 

approfondisce anche l'hardware. 300 pagine. 

Cod. 338 D • L. 22.000 / Abbonati L. 17.600 


D. GIANNI - C. TOGNONI 

MSX: il BASIC 


F. FRANCESCONI - F. PATERLINI 

Voi e il vostro Commodore 64 



Il primo libro sul BASIC MSX: un testo didattico e 
un manuale di riferimento. 176 pagine. 

Cod. 417 D L. 20.500 / Abbonali L. 16.400 


Guida agevole e divertente alla programmazione 
in BASIC. Con tanti programmi testati. 240 pagine. 
Cod. 347 D • L. 22.000 / Abbonati L. 17.600 


R. BONELLI 

Commodore 64: il BASIC 

Il linguaggio BASIC chiarito ed esemplificato per 

chi impara a programmare. 316 pagine. 

Cod. 348 D ■ L. 26.000 /Abbonati L. 20.800 

R. BONELLI 

Commodore 64: i file 

Per organizzare e gestire l'archivio dati su 

cassetta o disco. 5 programmi completi. 

178 pagine. 

Cod. 400 B • L. 17.000 / Abbonati L. 13.600 
R. BONELLI 

Commodore 64: la grafica e il suono 

Come disegnare e produrre suoni con il 
computer. Con cassetta. 260 pagine. 

Cod. 409 B • L. 34.000 /Abbonati L. 27.200 

F. MENDE 

Il grande libro dei giochi 

Programmi già pronti in BASIC Commodore e 
idee per crearne di nuovi. Con cassetta. 106 pagine. 
Cod. 408 D • L. 24.000 / Abbonati L. 19.200 

C. KOSNIOWSKI 
Matematica a Commodore 64 

Tutte le funzioni matematiche del C64, 
informazioni e programmi dettagliati. Con 
cassetta. 160 pagine. 

Cod. 570 D • L. 24.000 /Abbonati L. 19.200 
M. GRACE 

Adventure e Commodore 64 

Misteri, magie, giochi di Adventure da inventare 
sul C64. Con cassetta. 252 pagine. 

Cod. 571 D • L. 35.000 /Abbonati L. 28.000 

D. LAWRENCE 

Il Linguaggio Macchina del Commodore 64 
Tulio per costruire programmi in linguaggio 
macchina e 14 nuovi comandi BASIC. Con 
cassetta. 208 pagine. 

Cod. 572 D • L. 29.000 /Abbonati L. 23.200 
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Aut. Min. Cono. 


14 SPLENDIDE 
RIVISTE 


14 MODI PER 

VINCERE 


UNA FIAMMANTE 
PEUGEOT 205 XR (954 cc.) 


1000 MODERNISSIMI 
OROLOGI COMMODORE 


UN SOLO MODO PER PARTECIPARE: 



PER GLI ABBONATI: 


abbonarsi subito. 


Per abbonarsi basta utilizzare 



il conto corrente postale 
rosso d'abbonamento, 
la cedola d'abbonamento 
(solo nel caso di 
con assegno, 
vaglia, carta 
di credito). 


il 20% di risparmio 
su tutti i libri 

della Biblioteca Jackson 
fino al 28-2-86. 


Per ordinare I libri utilizzare: 

• il conto corrente postale blu 


• la cedola di commissione 
libraria (solo nel caso di 
pagamento con assegno, 
vaglia, carta di credito). 


































































Campagna Abbonamenti 1985/1986 


CAMPAGNA 
ABBONAMENTI 
JACKSON 85/86 



questa preziosa 
ed esclusiva 



AGENDA 

DIZIONARIO 

a chi partecipa 
al grande 

CONCORSO 
JACKSON 


1+1000 

premi 
in palio! 
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IMPORTANTE: non scrivere nella zona soprati3nle! 

CAUSALE DEL VERSAMENTO 
PER RICEVERE I SEGUENTI LIBRI JACKSON 

NELLA COMPILAZIONE iwdicabe esattamente il codice e la QUANTITÀ dei VOLUMI RICHIESTI 

'ENZE Codice lOuanil [ Codice [Quanti I Codice iQuantl I Codice jQuani 































































GRUPPO EDITORIALE 

JACKSON 

DIVISIONE PERIODICI 




COMPILARE IL QUESTIONARIO CONVIENE! 


Caro lettore, 

col nuovo anno ormai alle porte il Gruppo Editoriale Jackson ha deciso di effettuare un ampio sondaggio di opinione fra 
tutti i suoi lettori interessando a ciò tutte le proprie testate. 

Lo scopo evidente è quello di ricavare informazioni che ci aiutino meglio a indirizzare il nostro costante impegno volto a 
fornire prodotti editoriali sempre migliori e sempre più rispondenti alle esigenze dei lettori. Per questo, la invitiamo 
cortesemente a dedicarci qualche minuto del suo tempo per farci capire le sue attese aspirazioni; per trasmetterci i suoi 
giudizi sul lavoro da noi fin qui svolto e i suoi preziosi suggerimenti per il nostro lavoro futuro. I pochi minuti che lei ci 
dedicherà saranno sicuramente ben spesi, nel nostro e nel suo interesse. 

La ringraziamo anticipatamente per il suo contributo e le riconfermiamo che i dati che lei ci fornirà saranno per noi 
punto di riferimento preciso durante il lavoro quotidiano. 

Ci auguriamo di poterla ricambiare offrendole, già dai prossimi mesi, un prodotto editoriale ancor meglio rispondente 
alle esigenze specifiche dei nostri lettori. Le auguriamo anche di poter scoprire il suo nome fra i ben 2000 che abbiamo 
deciso di gratificare al fine di stimolare una imponente risposta a questa nostra iniziativa. 

Fra tutti coloro che invieranno il questionario compilato, infatti, il Gruppo Editoriale Jackson, metterà a disposizione ben 
500 abbonamenti, 500 libri gratuiti e 1000 buoni per t'acquisto fino a 10 libri con uno sconto del 40%. Il questionario, 
naturalmente, va spedito in busta chiusa a: Gruppo Editoriale Jackson, Servizio Marketing, Via Rosei lini 12-20124 Milano. 
Cordialmente 

GRUPPO EDITORIALE JACKSON srl 
Div. Periodici 

P.S. Nel caso la sua copia di rivista fosse letta da più persone, è possibile fotocopiare il questionario in modo che ognuno 
dei lettori possa esprimere le proprie osservazioni. 

L'invio dei questionario è anche un sicuro sistema per assicurarsi la ricezione di tempestive informazioni circa le novità 
editoriali Jackson, le due edizioni annuali del catalogo libri, le notizie sulle particolari iniziative promozionali che stiamo 
definendo per il 1986. 


Spedire a: Gruppo Editoriale Jackson, Servizio Marketing, 
■ ■■■■■■■■■ V|g Rosemnii 12) 20124 Milano 
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31 PERCHÈ... 

I l le arriva regolarmente a casa 

X 

1.2 Le arriva regolarmente in azienda 

□ 

1.3 L'acquista in edicola 

□ 

1.4 le viene prestata da altri 

□ 

1.5 Altro (specificare) 

□ 

(_ ® 


m 


NEGLI ULTIMI 6 MESI 

HA CONSULTATO... 


2.1 Tulli i numeri 

2.2 Da 3 a 5 numeri 

2.3 Da I a 2 numeri 


QUANDO RICEVE LA RIVISTA. 


3.1 La legge complelamenle 

3.2 Segue una o due rubriche 

3.3 Legge gli articoli più interessanti 

3.4 La sfoglia solamente 

3.5 La passa ad altri senza leggerla 



LEGGE LA RIVISTA... 


C 


-J 


4.1 Solo sul luogo di lavoro 

4.2 Più spesso sul luogo di lavoro 

4.3 Solo a casa 

4.4 Più spesso a casa 

4.5 Altro (specificare) 


m 


QUANTE E QUALI PERSONE 
LEGGONO 

LA STESSA SUA COPIA 
DELLA RIVISTA? 


5.1 

Nessuna 

famigliar! 

colleghi 

amici 

5.2 

Da 1 a 3 

□ 

X 

□ 

5.3 

Da 4 a 6 

□ 

□ 

□ 

5.4 

Oltre 6 

n 

□ 

□ 


□ 



















r QUALI SONO LE RUBRICHE 

DELLA RIVISTA 

CHE PIÙ LE INTERESSANO? 

ASSEGNI UN PUNTEGGIO 

DAI A 10 PARTENDO 

DALLA RUBRICA DI MAGGIOR 

INTERESSE. 


6.1 Posta 

6.2 Personal news 

6.3 Personal market 

6.4 le aziende informano 


punteggio 

} 


■Tg^ttp-n ofì 
ifie y o V fi l 


ALI SONO GLI ARGOMENTI 
CHE RITIENE PIÙ 
INTERESSANTI O CHE 
VORREBBE 

SVILUPPATI MAGGIORMENTE? 


0/1 . 

c-ojg?l 1 /ftftl 


|l ]| QUALI SONO GLI ARGOMENTI 
MENO INTERESSANTI? 


9 di 0 C- fi t ^ ty n 1 
fi. M | 


9.1 Fornisca informazioni molto utili 

9.2 Fornisca informazioni abbastanza utili 

9 3 Fornisca informazioni poco utili 

9.4 Fornisca informazioni inutili 


di 

MM 

B 


10.1 

Nessuna 


□ 



regolar- 

salma- 



mente 

riamente 

10.2 

Automazione Oggi 

□ 

□ 

10.3 

Bit 

X 

□ 

10.4 

Compuscuola 

□ 

□ 

10.5 

Elettronica Hobby 

□ 

□ 

10.6 

Elettronica Oggi 

□ 

□ 

10.7 

Informatica Oggi 

□ 

□ 

10.8 

Medicai Computer 

□ 

□ 

10.9 

Pc World Magazine 

□ 

□ 

10.10 

Personal O 

□ 

□ 

10.11 

Personal Software 

X 

□ 

10.12 

L'elettronica 

□ 

□ 

10.13 

Strumenti Musicali 

□ 

□ 

10.14 

Telecomunicazioni Oggi 

□ 

□ 

10.15 Videogiochi & Computer 

□ 

□ 


IM QUALI ALTRE RIVISTE 

DEL SETTORE LEGGE? 


regolar- salata¬ 

mente riamente 


ni /^.c. □ 

11.2 S’/’cR 

11.3 /^rr?M,t/^ □ 


11.4 

11.5 

11.6 Altra (specificare) 


12.1 Dati di mercato 

12.2 Strategia di marketing 

12.3 Nuovi prodotti 

12.4 Informatica/hardware 

12.5 Informatica/software di base sistemistica 

12.6 Software applicativo gestionale 

12.7 Office automation (word processing, fogli elet¬ 
tronici. data base) 


12.8 Linguaggi di programmazione >L 

12.9 Sistemi esperti e intelligenza artificiale □ 

12.10'Personal computing □ 

12.11 Software applicativo personal computing 

12.12 Listati di programmi 

12.13 Tecnologie microelettronichc □ 

12.14 Strumentazione per laboratorio 

12.15 Strumentazione di produzione □ 

12.16 Microprocessori e periferiche □ 

12.17 Componentistica □ 

12.18 Elettronica civile (TV, videoregistratori, hi-fì...) 

12.19 Elettronica civile (frigoriferi, lavatrici, lavastovi¬ 
glie....) □ 

12.20 Elettronica militare □ 

12.21 Elettromedlcali □ 

12.22 Controlli di processo □ 

12.23 Controllo numerico □ 

12.24 Fabbrica automatica (Cim) □ 

12.25 Cad/Cam □ 

12.26 Strumenti musicali elettronici tradizionali □ 

12.27 Strumenti musicali elettronici □ 

12.28 Apparecchiature per sale di registrazione □ 

12.29 Computer music □ 


INDICHI LA MARCA 

DEL PERSONAL COMPUTER 

EVENTUALMENTE POSSEDUTO 

E/O UTILIZZATO 

PER LA PROPRIA ATTIVITÀ 


posseduto utilizzato 


13.1 

Apple 

□ 

□ 

132 

Apricot 

□ 

□ 

13.3 

Atari 

□ 

□ 

13-4 

Burroughs 

□ 

□ 

13.5 

Commodore 

□ 

K 

13.6 

Compaq 

□ 

□ 

13.7 

Digital 

□ 

□ 

13.8 

Epson 

□ 

□ 

13.9 

Ericsson 

□ 

□ 

13.10 

Hewlett-Packard 

□ 

□ 

13.11 

Honeywell 

□ 

□ 

13.12 

Ibm 

□ 

□ 

13.13 

Italici 

□ 

□ 

13.14 

Olivetti 

□ 

□ 










13.15 Philips 

□ 

* 

13.16 Sinclair 

K 

□ 

13.17 Sistemi MSX 

□ 

K 

13.18 SperryUnivac 

□ 

□ 

13.19 Texas 

□ 

X 

13.20 Wang 

□ 

□ 

13.21 Xerox 

□ 

□ 

13-22 Altri (specificare) 

□ 

□ 


c 


c — 



0 



s_ 


14.1 

Autore (scrittore, giornalista, ecc.) 

□ 

14.2 

Artista (regista, attore, musicista, pittore, ecc.) 

□ 

14.3 

Medico 

! ) 

14.4 

Paramedico 

□ 

14.5 

Avvocato, procuratore, ecc. 

; i 

14.6 

Notaio 

□ 

14.7 

Commercialista e fiscalista 

□ 

14.8 

Consulente del lavoro, amministratore ecc. 

u 

14.9 

Ingegnere e architetto 

n 

14.10 

Matematico, statistico, fisico, chimico e biologo 

[ i 

14.11 

Economista 

□ 

14.12 Agente di borsa 

: i 

14.13 

Consulente tecnico 

□ 

14.14 

Geometra 

□ 

14.15 

Perito industriale, elettrotecnico ecc. 

□ 

14.16 Agronomo, veterinario, perito agrario ecc, 

r i 

14.17 Artigiano 

□ 

14.18 Altra (specificare) 

□ 


f 


SE LEI È UN INSEGNANTE 
INDICHI IN CHE ISTITUTO 
SVOLGE LA SUA ATTIVITÀ 


15.1 

Elementare 

□ 

15.2 

Medie inferiori 

□ 

15.3 

Medie superiori 

□ 

15.4 

Università 

□ 

15.5 

Formazione professionale 

□ 




( - ' 


QUESTA PARTE DEL QUESTIONARIO È RISERVATA SOLO A COLORO 
CHE OPERANO IN UN'AZIENDA 


v. 


0 - QUAL È LA SUA QUALIFICA? 


17.1 Imprenditore 

□ 

17.2 Dirigente 

□ 

17.3 Caposettore 

□ 

17.4 Impiegalo 

□ 

17.5 Tecnico 

< 

0 - IN CHE SETTORE DI ATTIVITÀ LEI 
OPERA? 

18.1 Direzione generale 

□ 

18.2 Produzione 

X 

18.3 Vendite 

□ 

18.4 Acquisti 

□ 

18.5 Marketing 

□ 

18.6 Pianificazione 

a 

18.7 Pubblicità/promozione 

□ 

18,8 Amministrazione 

□ 

18.9 Organizzazione 

□ 

18.10 Personale 

□ 

18.11 Edp 

□ 

18.12 Altri (specificare) 

□ 


m - ALCUNI DATI GENERALI 
SULLA SUA AZIENDA 
Denominazione dell’azienda. 

Indirizzo . 


N.ro dei dipendenti 


19.1 Da 1 a 20 □ 

19.2 Da 21 a 50 □ 

19.3 Da 51 a 100 □ 

19.4 Da 101 a 300 □ 

19.5 Da 301 a 500 ^ 

19.6 Da 501 a 1000 □ 

19.7 Oltre 1000 □ 


0 - SETTORE MERCEOLOGICO 
IN CUI OPERA LA SUA AZIENDA 


20.1 Commercio □ 

20.2 Finanza □ 

20.3 Industria □ 

20.4 Informatica telecomunicazioni e telematica □ 

20.5 Elettronica 

20.6 Pubblica amministrazione □ 

20.7 Servizi □ 

20.8 Agricoltura □ 


IMPORTANTE: A SECONDA DEL 
SETTORE MER¬ 
CEOLOGICO INDI¬ 
CATO LA PREGHIA¬ 
MO DI COMPLETA¬ 
RE IL SUCCESSIVO 
QUADRO RELATI¬ 
VO, INDICANDO 
COSÌ IL SEGMENTO 
SPECIFICO DI ATTI¬ 
VITÀ DELL’AZIEN¬ 
DA. 

HE - Macrosettore COMMERCIO 


21.1 

Pubblici servizi 

□ 

21.2 

Concessionari 

□ 

21.3 

Alberghi 

□ 

21.4 

Ingrosso 

□ 

21.5 

Altro (specificare) 

□ 

u. 

Macrosettore FINANZA 



ISTITUTI DI CREDITO 


22.1 

Casse di risparmio 

□ 

22.2 

Banche popolari 

□ 

22.3 

Banche ordinarie 

□ 

22.4 

Casse rurali 

□ 

22.5 

Banche interesse nazionale e di diritto pubblico 

□ 

22.6 

Banche estere 

□ 










4» 4» 4* QUESTA parte del questionario è riservata solo a coloro CHE OPERANO IN UN’AZIENDA 


22.7 Fondiario □ 

22.8 Altro (specificare) □ 

ASSICURAZIONI 

22.9 Enti centrali □ 

22.10 Compagnie □ 

22.11 Agenzie □ 

22.12 Brokers □ 

22.13 Altro (specificare) □ 

FINANZIARIE 

22.14 Società finanziarie □ 

22.15 Società di leasing □ 

22.16 Società di factoring □ 

22.17 Fondi di investimenti □ 

22.18 Altro (specificare) □ 


IH - Macrosettore INDUSTRIA 


23.1 Abbigliamento □ 

23.2 Alimentari □ 

23.3 Bevande □ 

23.4 Cantieristica □ 

23.5 Chimica □ 

23.6 Chimica e petrolchimica □ 

23.7 Edilizia (imprese costr. ed.) □ 

23.8 Elettromeccanica □ 

239 Elettronica □ 

23.10 Farmaceutica □ 

23.11 Foto-cine-ottica-cinema □ 

2312 Gomma □ 

23.13 Impiantistica □ 

23.14 Metalmeccanica siderurgica □ 

23.15 Mobili □ 

23.16 Nautica □ 

23.17 Oreficeria □ 

23.18 Petrolifero □ 

23.19 Tessile □ 

23.20 Cartotecnica □ 

23.21 Editoria □ 

23.22 Piccole imprese □ 

23.23 Altro (specificare) □ 

Specificare anche se l'attività è: 

Manifatturiera (M) □ 

Non Manifatturiera (I) □ 


H • Macrosettore INFORMATICA, 
TELECOMUNICAZIONI 
E TELEMATICA 


24.1 

PRODUTTORI (P) 

Completi 

□ 

24.2 

Hardware 

□ 

24.3 

Software di sistema 

□ 

24.4 

Software applicativo 

□ 

24.5 

NON PRODUTTORI (N) 

Hardware 

□ 

24.6 

Software di sistema 

□ 

24.7 

Software applicativo 

□ 

24.8 

Completi 

□ 

24.9 

SERVIZI (S) 

Computer Service 

□ 

24.10 Altro (specificare) 

□ 

(a) - 

Macrosettore ELETTRONICA 


25.1 

COMPONENTI (C) 

Produzione di schede generai purpose 

□ 

25.2 

Produzione di sistemi dedicati 

□ 

25.3 

Progettazione di microsoftware 

□ 

25.4 

Elettronica civile (consumer) 

□ 

25.5 

Elettronica professionale 


25.6 

STRUMENTAZIONE (S) 

Progettazione 

□ 

25.7 

Manutenzione 

□ 

25.8 

Produzione 

□ 

25.9 

F.I-ETTRONICA CIVILE (E) 

Elettrodomestici bianchi (frigoriferi, lavatrici, 


ecc.) 

□ 

25.10 

Elettrodomestici marroni (TV, radio, videoregistra- 


tori, hi-fi...) 

□ 

25.11 

ELETTRONICA PROFESSIONALE (P) 

Data processing 

□ 

25.12 

Telecom 

□ 

25.13 

Industriale 

□ 

25.14 

Auto 

□ 

25.15 Altro (specificare) 

□ 

l?D - 

Macrosettore PUBBLICA 


AMMINISTRAZIONE 


26.1 

CENTRALE(C) 

Ministeri 

□ 


26.2 Aziende di stato □ 

26.3 Istituti □ 

26.4 Assistenza e previdenza □ 

26.5 Università e ricerca □ 

26.6 Biblioteca □ 

26.7 Altro (specificare) □ 

LOCALE (L) 

26.8 Regione □ 

26.9 Comuni □ 

26.10 Provincia □ 

26.11 Municipalizzate □ 

26.12 Ussl □ 

26.13 Istruzione □ 

26.14 Consorzi □ 

26.15 Biblioteche locali □ 

26.16 Altro (specificare) □ 


dD - Macrosettore SERVIZI 


27.1 Immobiliari □ 

27.2 Pubblicità □ 

27.3 Comunicazione □ 

27.4 Trasporti □ 

27.5 Istruzione privata □ 

27.6 Studi professionali □ 

27.7 Sanità privata □ 

27.8 Informazione culturale spettacolo □ 

27.9 Consulenza □ 

27.10 Turismo □ 

27.11 Altro (specificare) □ 


H - Macrosettore AGRICOLTURA 


28.1 Produttori 


□ 












Cedola Abbonamento 

alle Riviste JACKSON alla riviste desiderate 

(compilare su entrambi I lati) 


TARIFFE ABBONAMENTO 


RIVISTA ITALIA ESTERO 

□ Videogiochi & Computer lire 33.000 lire 66.000 

C ] Personal Software lire 39.000 lire 78.000 

□ PC World Magazine lire 44.000 lire 88.000 

O Informatica Oggi lire 40.000 lire 80.000 

□ Automazione Oggi lire 46.000 lire 92.000 

CI Elettronica Oggi lire 64.000 lire 128.000 

□ Strumenti Musicali lire 35.000 lire 70.000 

C) Medicai Computer lire 45.000 lire 90.000 

D Bit lire 43.000 lire 86.000 

O Personal O lire 42.000 lire 84.000 

□ Telecomunicazioni Oggi lire 36.000 lire 72.000 

□ L'Elettronica lire 49.000 tire 98.000 

D Elettronica Hobby lire 32.000 lire 64.000 

CI Compuscuola lire 20.000 lire 40.000 


L'importo complessivo da me dovuto è di L. 

□ Allego assegno a voi intestato N._ 

Banca _ 


□ Ho effettuato il versamento con vaglia postale a voi 
intestato, del quale allego fotocopia della ricevuta. 

Per i possessori di Carta di Credito 

□ AMERICAN EXPRESS □ VISA 


scadenza 


□Autorizzo l'organizzazione emittente la Carta di Credito 
ad addebitare l'importo sul mio conto 


Data. 


Firma. 


spazio riservato all'Ufficio 


Cedola Libraria (compilare su entrambi i lati) 

Vogliate spedirmi i seguenti volumi: 


1 

2 

3 

4 

5 


N. COPIE 

CODICE 

PREZZO UNITARIO* 

PREZZO TOTALE 





















Contributo fisso spese di spedizione 

L 3.000 

Importo totale 



Lo sconto del20% tino al28-2-86è riservato ai soli abbonati. 

MODALITÀ DI PAGAMENTO: 

O Pagherò al postino al ricevimento dei volumi con 
addebito di L. 3.000 per contributo spese di spedizione. 

O Allego assegno A/._ 

Banca - 


D Ho attenuato versamento con vagita postale a voi intestato 
del quale allego fotocopia. 

Per I possessori di Carta di Credito 
O AMERICAN EXPRESS OVISA 


N. 
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OAutorizzo l'organizzazione eminente la Carta di Credito 
ad addebitare l'importo sul mio conto 


Data- 


. Firma. 


spazio riservato all'Ufficio 
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Ritagliare e spedire in busta chiusa a: 

Gruppo Editoriale Jackson - 
Servizio Abbonamenti 

Via Rosellini, 12 - 20124 Milano 

GRUPPO 
EDITORIALE 
JACKSON 



Nome 


Cognome 
Via_ 


CAP 

Prov. 


—Città. 


Questo abbonamento 
mi dà diritto 
a ricevere GRATIS 
l’Agenda Dizionario Jackson 1986 



<^~t> 

Ritagliare e spedire in busta chiusa a: 

Gruppo Editoriale Jackson - 
Divisione Libri 

Via Rosellini, 12 - 20124 Milano 

GRUPPO 
EDITORIALE 
JACKSON 



Nome 


Cognome 
Via_ 


CAP _ 
Prov.. 


.Città. 


Sono abbonato a 


□ Desidero ricevere 
anche il vostro nuovo 
Catalogo Generale Libri 

A tale scopo allego 
L. 1000 (anche in francobolli) 
quale contributo 
spese di spedizione. 




































per professione 


* Anche i non abbonati possono ordinare libri, 
naturalmente senza sconto alcuno. 



Gli abbonati JACKSON hanno diritto, 
fino al 28-2-86, ad uno sconto del 
20% su tutti i volumi. 


c 



VIDEO 

BASIC 


Al CONFINI 
ofiiospecirum 

MiUCAZK»* AVANZAI 


TOTOMAC 

Il Sistema Totomac: la nuova frontiera del .-urt 
Totocalcio per Commodore 64 ' 

Programmi semplici per tentare scientificamente 
la fortuna al Totocalcio. Con cassetta. 128 pagine. 
Cod. 576 D • L. 24.000 /Abbonati L. 19.200 

B. ALLAN 

Grafica e Commodore 64 

Anche per non esperti, la grafica in alta 
risoluzione sul C64. 152 pagine. 

Cod. 573 D • L. 15.000 /Abbonati L. 12.000 

J. SCRtVEN - P. HALL 

Commodore 64 a scuola 

Una guida alla didattica con il C64: per studenti e 

Insegnanti. 184 pagine. 

Cod. 574 D • L. 18.000 /AbbonatiL. 14.400 

D. LAWRENCE 

Tecniche di programmazione 
con il Commodore 64 

Come programmare bene e con precisione, per 
chiunque possiede e usa un C64.176 pagine. 
Cod. 575 D • L. 16.500 /AbbonatiL. 13.200 
U.G. BARZAGHI 

Statistica ad una dimensione 
con il Commodore 64 

La prima guida al principi fondamentali della 
statistica con calcolatore. 180 pagine. 

Cod. 570 A • L. 17.000 / Abbonati L. 13.600 


R. BONELLI - L. PAZZUCCONI - F. RACCHI. 
Commodore 16: sempre di più 
Ancora più notizie, Informazioni, conoscenza 
CI 6 e sul suo BASIC. Con cassetta. 320 pagine. 
Cod. 427 B • L. 35.000 /Abbonati L. 28.000 


ze sul 


D. LAWRENCE 

Commodore 16: essenziali routine 

Le grandi capacità di programmazione del 
Commodore 16. Con cassetta. 220 pagine. 
Cod. 422 B • L. 29.000 /Abbonati L. 23.200 

B. LLOYD 

I tuoi amici C16 e Plus 4 

Dal primi passi alla programmazione avanzata. 

168 pagine. 

Cod. 423 B • L. 16.000 / Abbonati L. 12.800 


P. WILLIAMS 



Ai confini dello Spectrum: applicazioni avanzate 
Per fare esprimere allo Spectrum tutte le sue 
potenzialità. Con cassetta. 188 pagine. 

Cod. 414 B • L. 28.000 /Abbonati L. 22.400 


C. PRIGMORE 

Il BASIC in 30 ore per Spectrum 

Per hobbisti, studenti, principianti, un vero corso 
di programmazione “professionale". 362 pagine. 
Cod. 501 B • L. 40.000 /Abbonati L. 32.000 
R. RIGO 


Spectrum Tool: programmi di utilità grafica 
e gioco 

BASIC e linguaggio macchina combinati per 
usare tutte le potenzialità del calcolatore. 

176 pagine. 

Cod. 554 D • L. 15.000 / Abbonati L. 12.000 
E. DEESON 
Lo Spectrum a scuola 

Per studenti e insegnanti una guida alla didattica 
con lo Spectrum. Con cassetta. 282 pagine. 

Cod. 579 D • L. 36.000 /Abbonati L. 28.800 

C. PRIGMORE 

Il BASIC in 30 ore per ZX81 

Un corso di BASIC per impadronirsi davvero 

delle tecniche di programmazione su ZX81. 

288 pagine. 

Cod. 547 B • L. 31.000 /Abbonati L. 24.800 


R. BONELLI - M. SPADA 

Imparare a programmare con lo ZX Spectrum 

Guida fondamentale per impadronirsi di tecniche 
di programmazione veramente professionali. 

300 pagine. 

Cod. 420 B • L 28.500 / Abbonati L. 22.800 


M. LORD 

Alla scoperta del BASIC Spectrum 

Tutto ciò che lo Spectrum può dare in un libro 
semplice ma evoluto. Con cassetta. 256 pagine. 
Cod. 418 D • L. 34.000 /Abbonati L. 27.200 


G. BAISINI - G.F. BAGLIONI 

Forth 


Il Forth come linguaggio dei Personal Computer, 
oltre che scientifico e industriale. 160 pagine. 
Cod. 527 B • L. 12.500 / Abbonati L. 10.000 


M. SANGIORGIO ^ 

Il Manuale del BASIC W' 1 

Il BASIC di PC IBM, Apple, M20, MZ700, 
Spectrum, ZX81, C64, VIC 20, TI99/4A a 
confronto per una rapida conversione. 486 pagine. 
Cod. 534 A • L. 45.000 / Abbonati L. 36.000 


W. CARRIS 

BASIC Atari 

Per imparare presto e bene a programmare sui 
computer Atari. 192 pagine. 

Cod. 540 H • L. 18.000 /Abbonati L. 14.400 
R. BONELLI 

Commodore 16 per te: BASIC 3.5 

Per conoscere e impadronirsi del piccolo ma 
potente CI 6. Con cassetta. 294 pagine. 

Cod. 413 B • L. 35.000 /Abbonati L. 28.000 

VIDEOBASIC 

In 3 volumi, il modo più nuovo e divertente per 
imparare il BASIC, ma non solo II BASIC... con il 
computer come maestro. 640 pagine. 

20 cassette. 

(per VIC 20) 

Cod. VBV001 • L. 200.000 / Abbonati L. 160.000 
(per Commodore) 

Cod. VBC002 • L. 200.000 / Abbonati L. 160.000 
(per Spectrum) 

Cod. VBS003 • L. 200.000 /Abbonati L. 160.000 























Far-West 



Seguito listato 2. 


190 VL-VL-1:P0KEV0,VL:S8-SB-1 
200 IFSB-S1THENP0KESB*1,32 :POKESB*1+CL.5 
: A-S:G0SUB400:SB-1:C0SUB500: RETURN 
210 IFPEEK(SB)032THENPOKESB» 1 ♦CL,5:POKE 
SB*1 ,32 : RETURN 

220 POKESB*CL.O:POKESB,59:POKESB*l+CL.5: 

P0KESB+1,32 : GOTO 190 
300 POKEC(T),32:P0KEC(T)*22,32:RETURN 
310 POKEC(T)*44+CL,7:POKEC(T)*45+CL,7: RE 
TURN 

400 POKEA,32:POKEA+20*CL.2:POKEA*21+CL.O 
1110 POKEA + 20,48 :P0KEA*21 ,53 
M20 P0KEV0-1,0:POKEVO,15:FORT-180TO255:P 
OKEVO-2,T:NEXT:POKEVO,0:POKEVO-2,0 
M30 POKEA+20*CL,5:POKEA*21*CL,5:POKEA+20 
i32 : P0KEA + 21 ,32:RETURN 
500 IFSP-1THENPS«PS*1:1FPS-QQ*1THEN570 
510 IFSB-1THENPB-PB+1:IFPB-QQ+1THEN570 
520 PRINT"{RVS ON}{HOME)(CUR.GIU){8 CUR. 
DESI (RED)"PS"{RVS 0NM7 CUR.DESHBLA 
C K ) " P B 
530 RETURN 

570 PRINT"{CUR.GIU){RVS ON)UN 1 ALTRA PART 
ITA (S-N)" 

580 GETA$:IFA"THEN580 

590 IFA$-"S"THENRUN 

600 IFA|<>"N"THEN580 

610 POKE36869|2MO:PRINT"{CLR)":END 


800 P0KES2*CL,0iP0KES3 + CL,0:POKEB2*CL,O: 
P0KEB3+CL.0:IFV-0THEN815 

805 P0KES,55:P0KES1,56 :P0KES2,57 :P0KES3, 
58 

810 POKEB,55:POKEB1.60 :POKEB2.61 :POKEB3, 
62 :V”0: RETURN 

815 P0KES|55:P0KES1,60 :POKES2,6l:P0KES3. 
62 

820 POKEB,55:POKEB1,56 :POKEB2,57iP0KEB3. 
58 : V-1 : RETURN 

2000 :POKE36869,2MOsINPUT"{CLR}{ 2 CUR.Gl 
U)(BLUE)GIOCATE IN (1-2) "sQ 

2010 IFQ<10RQ>2THEN2000 

2020 IFQ-2THEN2050 

2030 PRI NT"{2 CUR.GIU10K. PER SPARARE US 
A ILICUR.GIUJTASTO {RVS 0N)(F7)(RVS 
OFF)" 

20M0 INPUT"{2 CUR.GIUIDIFFICOLTA’ (1-9)" 
iDI :IFDI<1ORDI>9THEN20MO 

2045 GOT02060 

2050 PRINT"{2 CUR . GIU ) PER SPARARE SI USA 
NO: (2 CUR.GIU){RED)SCERIFFO{BLUE){ 
4 SPC){RVS ON ) (F7){RVS 0FF){6 SPC){ 
2 CUR.GIU){PURPLE)BANDIT0{4 SPC)(BL 
UE)(RVS ON)(SPACE)(RVS OFF)" 

2060 INPUT"{2 CUR.CIUlVINCE CHI ARRIVA P 
ER{2 SPC){2 CUR.GIU1PRIM0 A PUNTI:" 
;QQ: RETURN 



OftUPM» 

EDfTOMAJf 
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LA BIBLIOTECA CHE FA TESTO. 


130-135 - Stampa i cespugli in linea con 
i due cavalieri. 

136 - Rimando alla routine 180 (quando 
si gioca da soli). 

138 - Ripete il ciclo di scrolling orizzon¬ 
tale. 

140-149 - Subroutine per lettura tastiera 
e per evitare gli spari a raffica. 

150-179 - Subroutine per lo sparo dello 
sceriffo con verifica di aver colpito il 
bersaglio opposto oppure un cactus. 
180-220 - Subroutine per lo sparo ban¬ 
dito e verifica di aver colpito lo sceriffo 
oppure un cactus. 

300-320 - Subroutine per cancellare i 
cactus quando sono a sinistra. 

400-430 - Subroutine per caduta del ca¬ 
valiere colpito. 

500-610 - Aggiornamento punteggio 
per richiesta di nuova partita. 

800-820 - Subroutine per movimento dei 
cavalli. 

2000-2060 - Subroutine per introduzio¬ 
ne dati iniziali del gioco. ■ 
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COMMODORE 64 


Grand Prix 


Il funzionamento di Grand Prix 


di Umberto Giovanni Barzaghi Parte seconda 


I l caricamento del programma re¬ 
sponsabile della vera e propria 
realizzazione della simulazione 
non differisce sostanzialmente da 
Tool-Kit; così come le operazioni neces¬ 
sarie per creare una copia dei quattro 
file che compongono il listato del pro¬ 
gramma non differiscono in maniera 
sostanziale da quanto visto nella prima 
parte di questo stesso articolo, apparsa 
sul numero 31 di Personal Sfotware, cui 
preghiamo di far riferimento, a quei let¬ 
tori che desiderassero ottenere una co¬ 
pia di questo programma. 

In questo caso sarà necessario carica¬ 
re il "loader" registrato come “Grand 
Prix" e mandarlo in esecuzione con una 
semplice istruzione Run. Il programma 
stesso provvederà a caricare da nastro 
o da disco i due file di ridefinizione del 
set di caratteri, inserendoli direttamente 
nelle locazioni di memoria previste. 
Quindi, ridefiniti opportunamente i pun¬ 
tatori che consentono di ripartire lo 
spazio disponibile in memoria tra pro¬ 
gramma BASIC, variabili numeriche, 
matrici e stringhe, caricherà e manderà 
in esecuzione il vero e proprio program¬ 
ma di simulazione (“G.P."). 

Nel corso del caricamento delle varie 
parti che compongono il programma, 
comparirà sullo schermo la solita scritta 
"Attendere prego...". Terminate le sud¬ 
dette operazioni (gli utenti di unità di¬ 
schi potranno accorgersi del fatto, dallo 
spegnersi della spia rossa della periferi¬ 
ca), sullo schermo comparirà un menu 
di dimensioni ridotte rispetto a quanto 
visto per Tool-Kit. Esso infatti compren¬ 
de due sole voci: la lettura di dati o 
l'esecuzione di una simulazione a parti¬ 
re dai dati attualmente contenuti in me¬ 
moria. 

Se il programma è stato appena man¬ 
dato in esecuzione, le matrici destinate 
a contenere i dati dei concorrenti sa¬ 
ranno, ovviamente, vuote. Sarà quindi 
impossibile eseguire una simulazione 
(se si tentasse di farlo il calcolatore e- 
metterebbe una segnalazione di erro¬ 
re); sarà invece necessario leggere un 
set di dati dal supporto su cui sia stato 
preventivamente registrato tramite 
Tool-Kit. 

Le caratteristiche offerte da questa pri¬ 
ma opzione del menu sono, in tutto e 
per tutto, simili alla analoga voce del 
menu di Tool-Kit; non ci soffermeremo 
quindi ad illustrarle, limitandoci a ricor¬ 


dare che, per ottenere un corretto cari¬ 
camento dei dati richiesti, è necessario 
indicare il nome del file desiderato, che 
deve corrispondere alle consuete limita¬ 
zioni (riguardanti, ad esempio, l’uso 
della forma abbreviata seguita da “*"). 
Una volta creato un set di dati su cui 
fondare la simulazione, è possibile atti¬ 
vare la seconda voce del menu princi¬ 
pale (che verrà riproposto a lettura con¬ 
clusa dei dati stessi), premendo il tasto 
corrispondente. Sullo schermo compa¬ 
rirà quindi la prima delle domande ri¬ 
guardanti l’evento di cui si desidera si¬ 
mulare lo svolgimento: 

NOME DELLA MANIFESTAZIONE? 

Nel caso del primo Gran Premio della 
stagione, i cui dati sono contenuti nelle 
frasi Data di Tool-Kit e di cui è possibile, 
come abbiamo visto, ottenere un file 
scegliendo l'opzione di inizializzazione, 
il nome corrispondente è: 

G.P. DO BRASIL (JACAREPAGUA) 

vi verrà quindi chiesto di indicare (tra 
parentesi le risposte nel caso del Gran 
Premio del Brasile): 

• Lunghezza della pista (metri)? 

(5031) 

• Durata della gara (giri)? 

( 61 ) 

• Numero concorrenti? 

( 0 ) 

• Probabilità di pioggia (%)? 

( 0 ) 

• Pole position a destra (d), o a sinistra 
(s)? (d) 

• Vetture qualificate? 

(25) 


Tutte le voci in questione si possono 
reperire sulla stampa quotidiana, insie¬ 
me ai tempi sul giro fatti segnare dai 
singoli piloti, e ad altri dati (come la 
classifica attuale del Campionato del 
mondo), necessari per realizzare il file 
dati della manifestazione. Per quanto 
concerne le probabilità di pioggia, si 
può far conto sulle previsioni atmosferi¬ 
che locali o, più semplicemente, sul 
buon senso (non è molto probabile che 
piova, in Brasile, il 7 Aprile; anche se, in 
una delle ultime edizioni, è successo 
anche questo). 

Per ciò che invece riguarda la pole 
position, cioè la posizione più favorevo¬ 
le sulla griglia da cui prendere il via, ci si 
può affidare alla cartina della pista (ge¬ 
neralmente riportata dalla stampa 
sportiva - quotidiana e non - nei giorni 
che precedono la gara). La pole posi¬ 
tion, generalmente, si trova dallo stesso 
lato della pista verso cui porta la prima 
curva dopo il via. 

L’unica domanda, tra quelle sopra e- 
lencate, che fa eccezione, è quella ri¬ 
guardante il numero di concorrenti. Nel 
caso in cui non si desideri assistere 
semplicemente ad una vera e propria 
simulazione della corsa, ma si voglia 
sfruttare la situazione simulata sui dati 
reali a scopo ludico, è necessario indi¬ 
care semplicemente il numero di parte¬ 
cipanti (limitato, per ragioni di spazio in 
memoria, a tre). Ognuno di essi control¬ 
lerà uno dei team iscritti alla gara, e 
svolgerà per le vetture che compongo¬ 
no la squadra prescelta, le mansioni di 
direttore sportivo. Nel caso in cui si scel¬ 
ga di assistere ad una semplice simula¬ 
zione, non si dovrà far altro che preme¬ 
re Return, quando viene esplicitamente 
richiesto dal calcolatore, per passare 
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da una delle pagine che esso propone 
alla successiva. Se siete, invece, in com¬ 
petizione con un vostro team, oltre alle 
normali opzioni offerte dal programma, 
vi verrà proposta una situazione sinte¬ 
tizzata della condizione di ciascuno dei 
piloti sotto il vostro controllo, oltre alla 
possibilità di alterare quei valori che, 
come vedremo, permettono di regolare 
la condotta di gara di ciascuna vettura. 
Una volta inseriti i dati richiesti, la simu¬ 
lazione ha (finalmente) inizio. Sullo 
schermo, nel caso in cui si stia simulan¬ 
do la prima gara della stagione (cosa di 
cui il calcolatore si rende conto per il 
fatto che nessuno dei conduttori ha fat¬ 
to segnare punti in campionato), com¬ 
parirà la scritta: 

STO RIORDINANDO LA GRIGLIA 
DI PARTENZA 

In caso contrario la scritta sarà: 

STO RIORDINANDO LA CLASSIFICA 

e verrà seguita dalla classifica del Cam¬ 
pionato del mondo di Formula uno fino 
alla prova precedente, così come è pos¬ 
sibile ricavarla dai dati letti dal calcola¬ 
tore. Ciò significa che, nel caso in cui si 
sia provveduto a depennare un condut¬ 
tore sostituito o ritirato dal campionato 
e che abbia già fatto segnare dei punti, 
e non ad inserirlo in un team fittizio (nel 
modo visto nella prima parte dell'artico¬ 
lo), esso non potrà, ovviamente, com¬ 
parire in classifica, benché ne abbia o- 
gni diritto. I conduttori che hanno già 
registrato piazzamenti nei primi sei, vi 
verranno mostrati in pagine successive, 
ed i loro nomi compariranno nei colori e 
nel formato (normale o reverse) caratte¬ 


ristico del team cui appartengono. Do¬ 
po la classifica apparirà sullo schermo 
la griglia di partenza che, come in ogni 
diretta televisiva che si rispetti, verrà fat¬ 
ta scorrere fuori campo dal basso verso 
l'alto. I concorrenti vengono mostrati 
per file di due, in base all'orientamento 
dato dalla posizione della pole position. 
Potrà quindi accadere che tale griglia 
non corrisponda con quanto riportato 
dalla stampa sportiva quotidiana, che, 
genericamente, adotta una griglia tipo, 
con la pole position sulla sinistra, indi¬ 
pendentemente dalla posizione reale e 
dalla pista su cui si gareggia. Nel caso 
in cui il numero dei partecipanti sia di¬ 
spari, a fianco dell'ultimo concorrente 
sulla griglia comparirà un posto vuoto. 

Ogni concorrente è identificato in ba¬ 
se al nome ed al tempo fatto segnare in 
minuti primi, minuti secondi e millesimi 
di secondo. Una volta che l'intera gri¬ 
glia sia scomparsa dallo schermo, essa 
verrà rimpiazzata da un breve riassunto 
dei dati fondamentali della manifesta¬ 
zione: lunghezza della pista, durata del¬ 
la corsa in giri e distanza totale coperta 
in chilometri. Comparirà inoltre una co¬ 
municazione riguardante lo stato della 
pista (asciutta o bagnata), stato che 
viene casualmente deciso dal calcola¬ 
tore in base alle probabilità di pioggia 
da voi indicate. È molto importante fare 
attenzione a questo dato, nel caso in 
cui si sia scelto di giocare contro il cal¬ 
colatore (che controlla tutte le vetture 
che non vengono controllate da uno dei 
giocatori) e a patto che, ovviamente, si 
sia inserita una probabilità diversa da 
zero e uno; poiché in base ad esso è 
necessario decidere che tipo di pneu¬ 
matici adottare, pena gravi rischi di u¬ 


scite di pista ed incidenti (se si corre sul 
bagnato con gomme "stick”, sia tenere 
che dure) o di pesanti ritardi (se si corre 
con gomme scolpite su pista asciutta). Il 
calcolatore ripropone, quindi, la situa¬ 
zione di ciascuna squadra, indicando 
per ognuna nome, numero, e vettura 
impiegata da ciascuna delle “guide" 
del team. Nel caso in cui un concorrente 
sia rimasto escluso dai tempi di qualifi¬ 
cazione, comparirà al suo fianco la 
scritta: 

NON QUALIFICATO 

Se avete scelto di controllare una o più 
squadre, vi verrà chiesto, a questo pun¬ 
to del programma, di operare la vostra 
scelta. 

Ciascun giocatore avrà modo di indi¬ 
care il numero corrispondente ad uno 
dei team disponibili. Nel caso in cui una 
delle squadre non abbia visto nessuna 
delle sue vetture qualificarsi, verrà, in¬ 
fatti, esclusa dalle possibilità di scelta. 
Analogamente verrà impedito che due 
giocatori scelgano di controllare lo 
stesso team. Quei team che presentano 
al via una sola vettura, sia per ragioni 
economiche, sia perché una delle loro 
vetture non si è qualificata, verranno 
indicati da un “1 ", fra parentesi, appo¬ 
sto al nome del team. 

Per ciascuna delle vetture che la squa¬ 
dra schiera al via, vi verrà chiesto di 
specificare: ritmo di gara, carburante a 
bordo e tipo di pneumatici adottato. La 
prima voce (un valore numerico che 
può andare da 97-98, fino a 105-106). 
riguarda il limite a cui la vettura deve 
essere spinta per la successiva sezione 
di gara (la gara è, infatti, suddivisa in 
sezioni di un determinato numero di gi- 


Listato 1. 

10 IFSE=OTHENPOKE53281 , 15 : POKE53280 , 1 5:PR 
INTCHR6(14) 

20 IFSE=OTHENPRINT"(CLR)( 12 GIU ' }"TAB(10 
)" (BLK)ATTENDERE PREGO .. .": GOSUBl 10 : S 
E=1 

30 IFSE= 1 THENSE»2 :LOAD"1/G.P .", 8 , 1 
40 IFSE=2THENSE«3 : POKE491 55,8:POKE491 57,0 
:POKE49158,128:POKE49160,0 
50 IFSE=3THENSE=4 : POKE49161,232:SYS49152: 
LOAD"0/G.P. ", 8 , 1 

60 IFSE=4THENSE=5:POKE49155,8:POKE49157,0 
:POKE491 58, 1 28 :POKE491 60 ,0 
70 POKE491 61, 224:SYS49152:GOSUBl40 
80 POKE4 5 ,0 : POKE4 6,96 : POKE47 ,0 : POKE48 ,100 


90 POKE49,0:POKE50,1 56:POKE828,0:POKE51 ,2 
55 :POKE52,159 

100 POKE4 3,61:POKE44,3 :POKE829,0:CLR:LOAD 
"G.P.",8 

110 FORI«491 52T0491 74 :READA:POKEI,A:NEXT: 
RETURN 

120 DATAI 60,0, 1 62,8,1 85,0,1 28, 1 53,0,0, 200 
,208,247,238,6,192,238,9,192 
130 DATA202,208,238,96 

140 POKE56578,PEEK(56578)OR3:POKE56576,PE 
EK(56576)AND252 

150 POKE53272,40:POKE648,200 :PRINTCHR$(14 
7) 

180 PRINT"(CLR)( 13 GIU 1 }"TAB(10)"ATTENDE 
RE PREGO ...": RETURN 
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COMMODORE 64 


ri). Questo ritmo riveste una grande im¬ 
portanza per molteplici ragioni. Innanzi 
tutto, i tempi fatti segnare dalla vettura 
da voi controllata saranno tendenzial¬ 
mente tanto più bassi quanto più alto è 
il valore indicato (esiste però un mecca¬ 
nismo di casualità che può portare flut¬ 
tuazioni rispetto al valore indicato fino a 
un punto percentuale, in più o in meno). 

Tanto maggiore è il ritmo tenuto, tanto 
più vicini si viaggia al limite del pilota e 
della vettura, tanto più probabile sarà 
che il conduttore in questione abbia 
problemi di natura più o meno grave o 
addirittura, tali da essere costretto a so¬ 
stare ai box, o persino a ritirarsi. Anche 
in questo caso però, il meccanismo di 
generazione degli inconvenienti è op¬ 
portunamente “randomizzato”, per cui 
non è raro vedere, nel corso della simu¬ 
lazione, un giocatore che spinge un 
proprio pilota fino a 104-105 per recu¬ 
perare uno svantaggio, proseguire sen¬ 
za problemi e, invece, un pilota che ridu¬ 
ce il ritmo per conservare la posizione 
acquisita, essere costretto a ritirarsi o a 
sostare ai box. Il ritmo prescelto influi¬ 
sce, inoltre, sul consumo del carburan¬ 


te. Il quantitativo a disposizione di cia¬ 
scuna vettura è limitato superiormente 
dalla capacità del serbatoio (che, per 
regolamento, non deve superare i 220 
litri). Dato che il rifornimento in gara è, 
dallo scorso anno, proibito, sarà neces¬ 
sario valutare attentamente il quantita¬ 
tivo di carburante di cui è necessario 
disporre, in base al rendimento del pro¬ 
prio motore e alla distanza da coprire. 

Partire con meno carburante (meno 
peso a bordo), consente di migliorare le 
prestazioni della vettura (permette, ad 
esempio, di degradare meno i pneuma¬ 
tici ed adottare quindi, pneumatici tene¬ 
ri invece che duri, cambiandoli, magari, 
nel corso della gara). Bisogna però fare 
attenzione a quanto si spinge la propria 
vettura. I consumi sono stati calcolati 
per un teorico ritmo costante pari a 100. 
Ciò significa che, se si adotta un ritmo 
più sostenuto, il consumo aumenta in 
proporzione alla differenza tra il valore 
indicato e 100. Analogamente è possibi¬ 
le "risparmiare" carburante, portando il 
ritmo di gara al di sotto della soglia 
sopra indicata. 

In caso di esaurimento del carburante, 


la vettura verrà costretta al ritiro lungo il 
percorso. Uno dei compiti di un buon 
direttore sportivo, sta quindi nel decide¬ 
re quanta benzina vada caricata a bor¬ 
do, decidendolo in base alla tattica di 
gara che si pensa di far tenere a ciascu¬ 
na delle due vetture. La qual cosa, co¬ 
me abbiamo avuto modo di sperimenta¬ 
re di persona, può indurre in errore. 

Nel corso della simulazione del Gran 
Premio del Portogallo sulla pista dell'E- 
storil (che si è disputato sotto la piog¬ 
gia), abbiamo scelto, per il team da noi 
controllato, una quantità di carburante 
molto ridotta (i Gran Premi sotto la 
pioggia vengono, generalmente, intro¬ 
dotti prima del compimento della di¬ 
stanza prevista, allo scadere delle due 
ore di corsa; il programma dispone an¬ 
che di questa funzione). Essendo però 
stati costretti a far “tirare" molto le no¬ 
stre vetture, a causa di un ritardo inizia¬ 
le, ci siamo trovati, a gara praticamente 
conclusa, ad ottenere il brillante risulta¬ 
to di avere entrambe le vetture del no¬ 
stro team ritirate per esaurimento del 
carburante (poco più di due litri per 
percorrere gli ultimi quattro giri) mentre 


Listato 2. 


10 OPENl5/8,15:POKE56578,PEEK(56578)OR3 

20 PRINT"(CLR)":POKE56576,PEEK(56576)AND2 
52:POKE53272,40 :POKE648,200 :PRINT" 
(CLR)(BLK}"CHR$(142) 

30 VO=l5:Q=26:NI=Q:A=30:B=20:GOSUB2910:PO 
KE53280,15:POKE53281,15 

40 W$="{HOME}{ 33 GIU'}":GOSUB5710 :GOSUB4 
490 

50 CN(0)=146:CN(1)=18 

60 FORW=1TO 2 6 :W$(W)=LEFT$(W$,W):NEXT:GOSU 
B5070:END 

70 PRINT"{CLR}":G=0 

80 PRINTW5(5)"NOME DELLA MANIFESTAZIONE 
(RED}": INPUTGP? 

85 GP$=LEFT$(GP$+"{ 35 SPAZI)",35) 

90 PRINTW5(7)"(BLK)LUNGHEZZA DELLA PISTA 
(METRI) (RED):INPUTLP 

100 PRINTW8(9)"(BLK)DURATA CORSA (GIRI) 
{RED}";:INPUTGD:GF=INT(GD/7)+1:FG=GF 

1 1 0 PRINTW$(11)"(BLK)NUMERO DI CONCORRENT 
I (< = 3) (RED}"; :INPUTNC 

120 IFNC>30RNCC0THEN1 1 0 

130 PRINTW?(13)"{BLK}PROBABILITÀ' DI PIOG 
GIÀ (%) {RED)"; :INPUTPP:IFPP>100ORPP<0 
THENl30 

150 VO=l5 :PRINTW8(15)"{BLK}'POLE POSITION 
' A DESTRA (D)":PRINT"0 A SINISTRA (S 
){RED}"; 


160 INPUTPP$:IFPP$<>"S"ANDPP$<>"D"THENl50 

170 PRINTW$(17)"{BLK}NUMERO VETTURE QUALI 
FICATE{RED}{ 10 SPAZI}{ 10 SIN}";: 

180 INPUTQ:IFQ<OORQ>AORQ<>INT(Q)THENl70 
1 90 QF=0 :NI = Q: IFQOINT(Q/2) *2THENQF= 1 
200 PRINT"{BLK}" 

210 GOSUB3500:GOSUB3670 

220 GOSUB5010:GOSUB5030 

230 1=1 :GOSUB690:MT=9E9:GOSUBl 440 

240 FG=GD-G:F%=1 

250 II=INT(((7200000-EL(VO(1),3))/((EL(VO 
(1),1))*CF))+.1):IFI1<FGTHENFG=I1:F%= 
2 

260 IFGF<FGTHENFG=GF:F%=3 
270 REM G=G+FG:DR=0 

280 FORI = 1 TONI :FL= 0 :FORU=1TONC:FORKW=1T02 
:IFTE(N(U),KW)=EL(VO(I),4)THENFL=1 
290 NEXT:NEXT:IFFL=1THENFL=0:GOT0310 
300 G0SUB5310 
310 NEXT:NP=1:J0=NP:NS=1 
320 G=G+FG:DR=0:SI=0 
330 J=VO(J0) 

340 IFJ0>NITHENGOTO660 
350 GOSUBl930 

360 IFEL(J,24)<>0THENEL(J,3)=EL(J,3)+FG*E 
L(VO(1),1)*CF:GOTO5980 
370 SA=0:M1=150:GOSUBl150:DD=KK/100:M1=10 
0 : GOSUBl 150 :IFKK>49THENGOTO390 
380 EL=213-EL(J,2)+DD:GOTO400 
390 EL=213*EL(J,2)-DD 
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Seguito listato 2. 

400 PE=( EL ( J,8)*0.86+EL(J,15)+EL(J,16)) 

410 GW=0:WG=0:IFPE-EL(J,15)=<540ANDEL(J,1 
1)=1THENLT=1:WG = 1:GOSUB4290:GW=1 
420 LE=PE/FC+EL(J,17)+1 

430 EL(J,3)=EL(J,3)+EL(J,1)*CF*(EL+LE)/10 
0*FG+EL(J,5)*FG 

440 MI=300:GOSUBl150:DD=KK/100 
450 EL=EL-DD:TM=EL(J,1)*CF*(EL+LEJ/100+EL 
(J,5):IFTM<MTTHENGOSUB4070 
460 IFTM<EL(J,10)THENEL(J,10)=TM:EL(J,25) 
=G-INT(RND(PEEK(112))*FG-1)+1 
470 IFEL(J,6)>=99999THENGOSUBl160:GOSUBl2 
30 

480 GOSUB4 990 

490 IFEL(J,8)=<0THENEL(J,6)=12:G0S0Bl160: 
GOSUB950iGOTO650 

500 IFEL(J,17)=<.07ANDEL(J,11)=1 THENLT=1 : 

GOSUB4290:GW=1 
510 IFEL(J,5)=0THEN530 

520 IFEL( J, 5) *(GD-G)>=CA(EL(J, 6 ),1)*1.5TH 
ENGOSUBl160:GOSUBl230:GOTO650 
530 IFEL(J,12)=1THENEL(J,12)=0:GOSUBl160 : 

GOSUBl 230 :GOTO650 
540 IFEL(J,17)C.25THENSA=3:AS=6 
550 IFEL(J,17)<.1 0THENSA= 5:AS=9 
560 IFEL(J,17)<.05THENSA=10:AS=3 
570 IFEL(J, 1 8 ) <>3ANDHAOOTHENSA=2 5 : AS = 6 
580 IFGW=1THENGW=0:GOTO650 
590 MI=100:GOSUBl150:KK=KK+G/10-(G-GD/2)/ 
9:IFKK<85+(1 00-EL(J,2))+J0-SA-HATHEN6 
10 

600 FORI=1T03:GOSUBl160:NEXT:GOSUB950:GOT 
0650 

610 IFKK<80+(100-EL(J,2))+J0-SA-HATHEN630 

620 GOSUBl160:GOSUB2530:GOTO650 

630 IFKK<70+(100-EL(J,2))+J0-SA-HATHEN650 

640 GOSUBl160 :GOSUBl160 rGOSUBl230 
650 J0=J0+1:GOTO330 

660 CJ=3:JC=NI:GOSUBl380:GOSUB3050:GOSUBl 
440 

670 IFG<GDANDF%< >2THENGOTO240 
680 GOSUB3650:GOSUB3500:GOSUB4150:GOSUB57 
70 :RETURN 

690 GOSUB2650:IFNC=0THENRETURN 
700 FORU=lTONC:GOSUB2 82 0 :PRINTW$(22)" 
{RED}CONCORRENTE N@"U 
710 PRINTW$(23)"(BLK)QUALE TEAM VUOI CONT 
ROLLARE{RED):INPUTN:IFN=0THENPRINT" 
{HOME}":GOTO940 
720 F0=0:IFU=1THEN760 
730 FORU0=lTOU-1:IFN(UO)=NTHENF0=1 
740 NEXT 

750 IFFO=lTHENPRINT"{RED}TEAM GIÀ' SELEZI 
ONATO{BLK}":GOT0710 

760 NP=2:F0RY=lT02:IFTE(N,Y+2)=0THENNP=NP 
-1 

770 NEXT:IFNP=0THENPRINT"{RED}NESSUN PILO 
TA QUALIFICATO{BLK}":GOTO7T0 
780 N(U)=N:FORY=1T02:IFTE(N,Y+2)=0ORTE$(N 
,Y+l)="NON QUALIFICATO"THEN940 
790 Al=CN(TE(N, 6 )):A2=NC(TE(N,7) ) 


800 PRINT"{CLR}{RED}TEAM: "CHR$(Al)CHR$(A 
2)TE$(N,1)"{OFF}" 

810 REM EL$(TE( N,Y+2)/!)="{RED}"+TE$(N, 

Y+l ) 

820 PRINTCHR?(Al)CHR$(A2)TE$(N,Y+1)"{OFF} 
":PRINTCHRS(Al)CHR$(A2)EL$(TE(N,Y+2), 
2)"{OFF}" 

830 PRINT"{BLKjRITMO DI GARA INIZIALE 
{RED}"; 

840 INPUTEL(TE(N/Y+2),2) 

850 PRINT"{BLK}{GIU'}IL PERCORSO TOTALE E 
' DI"LP*GD/1000"KM." 

860 PRINT"{GIU’}IL CONSUMO MEDIO DELLE VO 
STRE VETTURE 1 *:PRINT"E' DI UN LITRO OG 
NI"; 

870 PRINTEL(TE(N,Y+2),9)/I000"KM." 

880 PRINT"QUANTI LITRI DI CARBURANTE{RED} 
"; :INPUTQC:IFQC<-220THENPRINT"{BLK}": 
GOTO900 

890 PRINT"{BLK}LA CAPACITA' MASSIMA DEL S 
ERBATOIO E ,Tr :PRINT"DI 220 LITRI.": GOT 
0880 

900 PRINT"{BLK}PNEUMATICI TENERI (0), DUR 
I (1)" 

910 PRINT"0 'RAIN' (2){RED}{ 5 SPAZI} 

{ 5 SIN}"; :INPUTPN:IFPN<0ORPN>2THENPR 
INT"{ 3 SU}":GOTO900 

920 EL(TE(N,Y+2),17)=PN+1:EL(TE(N,Y+2),18 
)=PN+1 

930 EL(TE(N,Y+2),8)=QC:EL(TE(N,Y+2),11)=0 

940 NEXT:NEXT:RETURN 
950 IFSAO0THENKK=AS :GOTO980 
960 IFEL(J,6)<>0THENKK=EL(J,6):EL(J,6)=0: 
GOTO980 

970 Mi=12:GOSUBl150 

980 CA$=CA$(KK,1):EL$(J,4)=CAS 

990 Al =CN (EL ( J, 1 3) ) : A2 =NC (EL( J, 1 4) ) 

1000 PRINTW5(23)"{RED}LA "CHR$(Al)CHR$(A2 
)EL$(J,2)"{OFF}{RED} N@"CHR$(144)EL( 
J,4)"{OFF}" 

1010 CA$="{RED}SI RITIRA CAUSA "+CA$+" 

{BLK}":GOSUB2900:PRINTW?(24)CA$ 

1 020 IFJ0<2ORJ0+DR>20THENl 039 
1030 PRINTW5(J0+2+DR)TAB(25)"{RED} RITIRA 
TO{ 3 SPAZI}" 

1 039 GK=INT(RND(PEEK (112))*FG-1)+2 :EL(J,2 
4)=G-GK:BL=EL(J,3) 

1040 IFEL(J,25)>=EL(J,24)THENEL(J,25)=EL( 
J,24)-1 

1041 IFEL(J,24)=0THENEL(J, 24) =1 

1042 IFEL(J,24)=1THENEL(J,10)=9E9:EL(J,25 
) =0 

1 043 IF ( J0 = 1 ORSI = l ) ANDFGOGFTHENGOSUB2000 
0:SI=1:GK=GK+2:EL(J,24)=EL(J,24)-2 

1044 IFEL(J,24)>GDTHENEL(J,24)=GD 

1045 EL(J,3)=BL+GK*EL(J, 1 ) 

1050 GOSUBl920:GOSUBl140:RETURN 
1060 IFJO=NITHENGOTOl080 

1 070 OV=VO ( JO);:FORFK=JOTONI-1 :VO(FK)=VO(F 
K+l):NEXT:VO(NI)=OV 
1080 NI=NI-1:NP=J0:DR=DR+1:GOTO330 
1 090 POKE54296,VO:POKE54275,1 5:POKE54274, 

15:POKE54277,0:POKE54278,240 
1100 POKE54276,65:RETURN 
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si trovavano ad occupare le prime due 
posizioni! Per quanto riguarda i pneu¬ 
matici è possibile scegliere tra due tipi 
"lisci" (per pista asciutta), ed uno “scol¬ 
pito” (da bagnato). Con il tipo 
“slick/tenero", le prestazioni saranno 
sensibilmente migliori, ma il degrado del 
pneumatico proporzionalmente più ra¬ 
pido. Diciamo che, approssimativamen¬ 
te (anche questo particolare della simu¬ 
lazione è debitamente “randomizza- 
to”), con i pneumatici teneri sarà possi¬ 
bile coprire circa metà della distanza 
prevista, sostituendo quindi i pneumati¬ 
ci a metà gara. 

Adottando pneumatici “duri" dovreb¬ 
be invece essere possibile coprire l’inte¬ 
ra distanza su pista asciutta. Il condizio¬ 
nale dipende dal ritmo tenuto, dal peso 
del complesso “vettura a vuoto-pilota- 
benzina nel serbatoio", oltre che al con¬ 
sueto fattore casuale. Le cattive condi¬ 
zioni dei pneumatici aumenteranno le 
probabilità di accusare problemi per 
scarsa tenuta di strada o maneggevo¬ 
lezza e, nel caso in cui non vi si ponga 
riparo rientrando ai box e provvedendo 


alla loro sostituzione, potrebbero addi¬ 
rittura portare ai ritiro per dechappa- 
mento o uscita di pista. Nel caso in cui il 
rientro ai box per la sostituzione non 
venga deciso da voi (il “D.S." del team), 
ma autonomamente dal vostro pilota 
(per cause di forza maggiore), il ritardo 
dovuto alla sosta sarà sensibilmente 
maggiore; in parte perché la vettura sa¬ 
rà stata costretta a procedere a rilento 
per parte del giro prima di rientrare ai 
box, in parte perché i vostri meccanici si 
saranno fatti cogliere impreparati dal¬ 
l'imprevisto rientro della vettura. I pneu¬ 
matici da bagnato sono, ovviamente, in 
grado di coprire l’intera distanza; ma la 
loro efficienza dipenderà, anche in que¬ 
sto caso, dal fattore peso e dal ritmo 
tenuto. La gara può quindi, finalmente, 
partire. Sullo schermo, per ragioni di 
spazio, compariranno solo i primi venti 
piloti al via, così come, nel corso dello 
svolgimento della gara, la classifica ver¬ 
rà limitata alle prime venti posizioni, nel 
caso in cui il numero delle vetture anco¬ 
ra classificate sia maggiore o uguale a 
tale valore. Le eventuali vetture ritirate, 


infatti, non "scompaiono" definitiva¬ 
mente dallo schermo. In base al regola¬ 
mento, una vettura può essere classifi¬ 
cata anche nel caso in cui non abbia 
tagliato il traguardo, a patto che abbia 
percorso i sette decimi della distanza 
coperta dal vincitore. 

È quindi possibile veder comparire in 
classifica piloti di cui era stato annun¬ 
ciato il ritiro, fino al momento in cui la 
distanza da loro coperta non risulti infe¬ 
riore al limite suddetto. Tali piloti sono 
identificati dalla scritta rossa "Ritirato" 
che compare al loro fianco, in luogo del 
distacco dal capofila. 

Lo svolgimento della manifestazione è 
composto da sette successive sezioni, 
pari a circa un settimo dei giri da per¬ 
correre, più una ottava sezione di lun¬ 
ghezza inferiore che consente di com¬ 
pletare il numero di giri previsti. In caso 
di pioggia, invece, la gara viene interrot¬ 
ta, come da regolamento, se supera le 
due ore. La scelta di utilizzare, come 
indice delle prestazioni di ciascuna 
coppia “pilota/vettura", il tempo fatto 
segnare nelle prove ufficiali cronome- 


Seguito listato 2. 

1110 POKE54273,40:POKE54272,BM 
1120 POKE54273,40:POKE54272,BM:RETURN 
1130 POKE54276,0 :POKE54296,0 :RETURN 
1140 FORRE=0TO2:FORPL«1T039:PRINTW$(23+RE 
)SPC(PL)"(SIN} :NEXT:NEXT:RETURN 
1150 KK=INT(RND(PEEK(112))*(Ml-l)+l):RETU 
RN 

1 1 60 GOSUBl 090 :FORBM=50TOOSTEP-4:GOSUBl91 
0:GOSUBl110 

1170 NEXT:GOSUBl130:RETURN 
1 180 H=INT(SD/3600000):M=INT(SD/60000-(H* 
60) ) 

1190 H$=RIGHT$(STR$(H),LEN(STR$(H))-1):M$ 
=RIGHT$(STR$(M),LEN(STR$(M))) 

1 200 S=INT(SD/1 000-(H*3600)-(M*60)):S$=RI 
GHT$(STR$(S),LEN(STR$(S))-1) 

1210 C=INT(SD-(H*3600000)-(M*60000)-(S*l0 

00 ) ) 

1 220 C$ = RIGHT$(STR$(C),LEN(STR$(C))-1): RE 
TURN 

1 230 IFEL(J, 6 )> = 99999THENGOSUB4290:EL(J,6 
)=EL(J, 6 )-99999 :RETURN 
1 240 IFSAO0THENLT=l :GOSUB4290 :EL( J, 6 ) =0 : 
RETURN 

1250 IFEL(J, 6 )<>0THENKK=EL(J, 6 ):EL(J,6)=0 
:EL(J,5)=0:GOTO!270 
1 260 Mi=12:GOSUBl150 

1270 CA$=CA$(KK,2):IT=CA(KK,1):Ml=IT 
1 280 GOSUBl150:EL(J,3)=EL(J,3)+IT+KK:SD=I 


T+KK:GOSUBl180 

1 290 Al=CN(EL(J,13)):A2=NC(EL(J, 1 4) ) 

1300 PRINTW$(23)"{RED}LA "CHR$(Al)CHR$(A2 
)EL$(J,2)"(OFF)(RED) N@"CHR$(144)EL( 
J,4)"{OFF}" 

1310 REM PRINTW$(23)"{RED}LA VETTURA 

N@"CHR$(Al)CHR$(A2)EL(J,4)EL$(J, 2) " 
{OFF}" 

1320 CA$="{RED}E' AI BOX PER PROBLEMI "+C 
A$:GOSUB2900:PRINTW$(2 4)CA$"{BLK}":Q 
$=STR$(C) 

1 330 IFMO0THENQ$=M$ + " • "+RIGHTS ("00"+S$ , 2 
)+CHR$(34)+RIGHTS("00"+C$,3):GOTOl35 
0 

1 340 IFSO0THENQ$=S$+CHR$ (34) +RIGHT$ ("00" 
+C$,3) 

1350 GOSUBl920:GOSUBl140 
1360 PRINTW$(24)"{RED}TEMPO DELLA SOSTA: 
"Q$ 

1370 GOSUBl920:GOSUBl140:RETURN 
1380 FORFO=lTOJC-1 

1 390 FORFO=FO+1TOJC: Fi=VO(F0):F=VO(FO) 

1400 IFEL(F,CJ)<=EL(Fi,CJ)THENGOTOl420 
1 410 V=VO(FO):VO(FO)=VO(F0):VO(F0)=V 
1420 NEXTF0 
1 430 NEXTFO: RETURN 

1440 II=VO(1):SD=EL(I1,3):GOSUBl180:GOSUB 
1 870 :PT=EL(VO(1) ,3) 

1450 PRINT"{CLR}":GOSUB30000 
1 460 IFG>=GDORF% = 2THENPRINT:PRINTW$(1 )TAB 
(10)"{RED}CLASS IFICA FINALE{BLK}":GO 
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TOl510 

1470 IFG=0THENPRINTW?(1)"{RED}{ 7 SPAZI} 
ALLA GRIGLIA DI PARTENZA} 9 SPAZI} 
TbLK}":GOTO l 51 0 

1480 GD$»RIGHT$(STR$(GD-G),LEN(STR$(GD-G) 
) ) 

1490 Q$“"{RED}{ 8 SPAZljA {SIN}"+GDS+" Gl 
RI DALLA FINE} 13 SPAZI}{BLK}" 

1500 Q$=LEFT$(Q$,41):PRINTWS(1)Q$ 

1510 X1$“RIGHT$("{ 2 SPAZI}"+STRS(EL(Il ,4 
)),2):X2$=RIGHT$("{ 2 SPAZI}"+STR$(H 
> ,2) 

1520 Al-CN(EL(I1,13)):A2=NC(EL(Il,14)) 

1530 X3$-RIGHT$("00"+M§,2):X4$=RIGHT$("00 
"+S$, 2) 

1540 IFH-0THEN1570 

1550 X$«"{RED} 10 "+CHRS(Al)+CHRS(A2)+EL$ 

( 11 , 1 ) 

1560 X$=X$+"{OFF}{RED} N@"+X1$+" IN"+X2$+ 
"H."+X3S+"'"+X4$+CHR$(34)+" 

{ 7 SPAZI}GOTOl590 

1570 X$-"{RED} 10 "+CHR$(Al)+CHR$(A2)+EL$ 

( 11 , 1 ) 

1580 X$»X$+"{OFF){RED} N@"+X1$+" IN "+X3$ 
+"'"+X4$+CHR$(34)+"{ 7 SPAZI}" 

1590 XS-LEFTS(X$,42):IFG=0THENX$*LEFT$(XS 
,29) 

1600 G$»RIGHT$(STRS(G),LEN(STR$(G))) 


1610 IFGO0THENQ$»G$ + " GIRI ALLA MEDIA DI 
KM/H"+STR$(ME)+"{ 14 SPAZI}" 

1620 IFG=0THEN1640 
1630 PRINTW5(2)"{RED}"LEFTS(Q$,40) 

1640 PRINTWS(3)X$ 

1650 LM=20:IFNI<=20THENLM=NI 

1660 FOROl»2TOLM:0»VO(Ol):GOSUB1770 

1670 Al"CN(EL(0,13)):A2=NC(EL(0,14)) 

1680 XI$“RIGHT$("{ 2 SPAZI}"+STR$(EL(O,4) 

) , 2 ) 

1690 X$=RIGHT$("{ 2 SPAZI}"+STRS(01),2)+" 
0 "+CHR$(Al)+CHR$(A2)+EL$(0,1)+" 
{OFF}{BLK} N@"+X1$ 

1700 IFEL(0,24)<>0THENX$»XS+"{ 2 SPAZI} 
{RED)RITIRATO{BLK}":GOTOl720 
1710 X$“X$+"{BLK} A"+ST$ 

1720 IFG-0THENX$-LEFT$(X$,28) 

1730 PRINT"(BLK)"X$:NEXT:GOSUBl920 
1740 IFF%"2THENPRINTWS(23)TAB(8)"{RED}GAR 
A SOSPESA/LIMITE 2H.{BLK}":GOSUB4?40 
:RETURN 

1750 IFG>»GDTHENGOSUB4440:RETURN 
1760 GOSUBl140:RETURN 
1 770 IFG=»0THENST$»”":RETURN 
1 780 IFEL(0,3)-EL(VO(l),3)>EL(VO(l), 1 ) *CF 
THENGOTOl840 

1790 SD»EL(0,3)-EL(VO(l),3):GOSUBl180 
1800 M$=M$+"'":S1$»RIGHT$("00"+S?,2)+CHR$ 
(34):IFM=0THENM$-"{ 3 SPAZI}":SI$=SS 
+CHRS(34) 


Guida per l’input dei programmi versioni VIC 20 e C 64 

Notate che i listati contengono "parole" racchiuse tra parentesi graffe { } . Tali parole rappresentano 
caratteri di controllo come mostrato nel sottostante riquadro. Se sono precedute da un numero, questo 
indica il numero di volte che quel tasto deve essere premuto. Se il simbolo è sottolineato deve essere 
premuto contemporaneamente a SHIFT mentre se è racchiuso da [ < > ] deve essere premuto contempora¬ 
neamente al tasto COMMODORE. Inoltre, se tra parentesi si trova un carattere alfabetico “solitario", questo 
dovrà essere premuto contemporaneamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto più agevole copiare i listati senza faticose e dubbie interpretazio¬ 
ni di caratteri grafici e di controllo di cursore o dei colori. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

{CLR} 

ESSI 

E 

{CYN} 

QQ| Q 

m 

t<7>] 

HO 

□ 

{HOME} 


0 

{PUR) 

Km Q 

m 

. [<8>] 

HO 

■ ■ 
■ ■ 

{SU} 


n 

{GRN} 

Kfll □ 

□ 

• {FU 

m 

5 

{GIU') 

Il ILI 1 -! Il 

E 

{BLU} 

Km q 

Q 

{F2} 


ai 

{SIN} 

INVITI 

II 

{YEL} 

Km □ 

SD 

{F3} 

(S 

5 

{DES} 


O 

[<1>] 

HO 

□ 

{F4 } 

fZ3 

12 

{ RVS ) 

rm □ 

H 

l<2>] 

HO 

15 

{F5} 

ri-: 

II 

{OFF} 

EHI □ 

■ 

t<3>] 

HO 


{F6} 

rm 

SI 

{BLK} 

Km Q 

m 

[< 4> | 

HO 

m 

{F7} 

oa 

II 

{WHT) 

Km q 

d 

[<5>| 

HO 

E 

{F8} 

rza 

■ 

{RED) 

Km q 

e 

t<6>] 

HO 

■i 
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trate che decidono la griglia di parten¬ 
za, apre il fianco ad alcune critiche e a 
numerose considerazioni. 

Anni fa, l'allora direttore tecnico della 
Scuderia Corse Ferrari, l'ingegner Mau¬ 
ro Forghieri (un altro recente “dimissio¬ 
nato" di Maranello), ebbe modo di af¬ 
fermare che la bontà di una vettura non 
si vedeva in gara, ma dalla posizione 
che essa occupava sulla griglia di par¬ 
tenza. Questa affermazione risale ad 
un’epoca in cui le vetture provavano 
nelle stesse condizioni della gara (allo¬ 
ra non esistevano neppure i pneumatici 
"slick"), e, benché non ci sentiamo di 
condividerla in tutto e per tutto - secon¬ 
do un altro ingegnere, l'inglese Robin 
Herd, della M.A.R.C.H., la miglior vettura 
è quella che esplode in mille pezzi un 
attimo dopo aver tagliato il traguardo 
per prima - essa contiene, senz'altro, un 
fondo di verità. La situazione, da allora 
è molto cambiata. In un periodo in cui, 
per questioni puramente pubblicitarie, 
non è raro vedere le Lancia che parteci¬ 
pano al campionato di durata, qualifi¬ 
carsi con gomme ultra-tenere, serba¬ 
toio semi-vuoto e pressione del turbo ai 


livelli massimi sopportabili dal propul¬ 
sore, e tutto ciò solo per partire in pole- 
position in una gara di mille chilometri; 
non è ovviamente sorprendente vedere 
in Formula uno motori turbo “da qualifi¬ 
ca", destinati a rompersi dopo una de¬ 
cina di giri, che possono sviluppare fino 
a mille cavalli DIN (per il nuovo B.M.W. 
della Brabham si parla addirittura di 
1.400 cavalli!). 

Ciò significa che le prestazioni realiz¬ 
zate in prova non corrispondono, in ge¬ 
nere, alle reali possibilità delle singole 
vetture. La situazione però, da un puro 
e semplice punto di vista previsionale, è 
leggermente migliorata rispetto al pe¬ 
riodo in cui si è ideata la versione origi¬ 
nale di questo programma. All'epoca, 
infatti, le gomme da qualifica, le vetture 
alleggerite con l'uso di materiali aero¬ 
nautici e dischi freni al carbonio, o con 
motori turbo di cui si potesse regolare la 
sovrappressione a livelli-limite erano 
accessibili solo a quelle che si suole 
indicare come "top-team”, vale a dire 
quelle tre-quattro squadre di maggior 
prestigio e che dispongono di sponsor 
più munifici, che si potevano permettere 


la rottura di un costoso motore turbo¬ 
compresso per guadagnare una fila 
sullo chieramento di partenza. In queste 
condizioni la prima metà dello schiera¬ 
mento risultava separata in maniera a- 
nomala dalla seconda; distanza che, 
generalmente, in gara andava dimi¬ 
nuendo e, in qualche caso (pensiamo 
alle velocissime McLaren-Ford di Wat¬ 
son e Lauda negli anni ’82-'83), addirit¬ 
tura annullandosi. Attualmente, con la 
quasi totale generalizzazione dell'im¬ 
piego di motori turbo e la regolamenta¬ 
zione dell'utilizzazione di gomme da 
qualifica particolarmente tenere (due 
soli treni per pilota, per sessione di pro¬ 
ve), i valori relativi sono tornati a farsi 
più significativi e, per simulare l'anda¬ 
mento della gara, è solo necessario o- 
perare le opportune proporzioni per 
quanto riguarda il ritmo meno esaspe¬ 
rato tenuto nei 250/300 km di gara ri¬ 
spetto ai tre-quattro giri che le gomme 
da qualifica consentono. L'unica ecce¬ 
zione è rappresentata dalla McLaren- 
Porsche, dove i tecnici della Casa tede¬ 
sca si rifiutano di sacrificare uno dei 
loro motori-gioiello, aumentandone la 


Seguilo listato 2. 


1810 IFM=0THENM$="( 3 SPAZI}":Si$=RIGHT$( 
"{ 3 SPAZI}"+S$,2)+CHR$(34) 

1820 IFS=OANDM=0THENSl$»"( 3 SPAZI}" 

1830 C$»RIGHT$("00"+C$,3):ST$»M$+S1$+C$:G 
OTO1860 

1840 DG=INT((EL(O,3)-EL(VO(1),3))/(EL(VO( 
1),1)*CF)) 

1845 TS$“" GIRO":IFDG>1THENTS?»" GIRI" 
1850 ST$-STR$(DG)+TS$ 

1860 RETURN 

1870 IFG=0THENRETURN 

1 880 IFG>=GDTHENG=GD 

1890 ME»INT((((LP*G)/EL(VO(l),3))*3600)*1 
000)/1000 
1900 RETURN 
1910 RETURN 

1920 FORKL»!T05000 :NEXT:RETURN 
1930 FS=21:IFNI<FSTHENFS»NI 
1940 IFJ0+DR>=FS+1THENRETURN 
1 950 IFJ0< >1THENJK»J0+DR:GOSUB2990:GOSUB3 
040:GOSUBl910 

1960 IFJ0+DR>=FSTHENRETURN 

1970 JK»JO+1+DR:GOSUB3020:GOSUB2990:RETUR 

tt 

1980 PRINTWS(23)"{RED}DEVI SEGNALARE (S/N 
) ?{BLK}": GOSUB54 0U 
1 990 GETPO$:IFPO$=""THENGOT01 990 
2000 IFPO$-"N"THENPRINT"(CLR}":RETURN 
2010 IFP0$<>"S"THENG0T01990 


2020 FORTB»!TOT 3 :PRINTW$(6+TB)TAB(20)TB$( 
TB):NEXT 

2030 Al =CN(TE(N(U) ,6) ).:A2«NC (TE(N(U) ,7) ) 
2040 PRINTW$(8)TAB(21)CHR$(Al)CHR$(A2)EL$ 
(T9,3)"(OFF}{BLK}" 

2050 PRINT"(GIU'}(RED)(RVS}B(OFF){BLK} - 
PER BOX":PRINT"(RED)(RVS}F(OFF}(BLK) 
- PER FAST":PRINT"(RED}(RVS}S(OFF} 
(BLK} - PER SLOW" 

2060 PRINT"(RED)(RVS)C(BLK}(OFF} - PER C 
AMBIO GOMME" 

2070 GETPOS:IFPO$=""THENGOTO2070 

2080 IFPO$="B"THENGOSUB2130 

2090 IFPO$="F"THENGOSUB2160 

2100 IFPO$="S"THENGOSUB2190 

2110 IFPO$="C"THENGOSUB2220 

2120 GOSUB4280 tGOTOl980 

2130 PRINTW$(10)TAB(21)"(RED} -{ 3 *} 

{BLK}":PRINTWS(12)TAB(21)"{REDI 
( 2 SPAZI}BOX( 2 SPAZI}(BLK}" 

2140 IFEL(T9,6)»0THENRETURN 
2150 EL(T9,12)=1 : RETURN 

2160 PRINTW$(10)TAB(21)"{RED} FAST (BLK}" 
:PRINTW$(20)"DI QUANTO VUOI AUMENTAR 
E IL RITMO" 

2170 INPUTAU:EL(T9,2)»EL(T9,2)+AU:AU$ = " + " 
+STRS(AU)+"%":PRINTW5(12)TAB(21)AU$ 
2180 RETURN 

2190 PRINTW$(10)TAB(21)"{RED} SLOW {BLK}" 
tPRINTWS(20)"DI QUANTO VUOI DIMINUIR 
E IL RITMO" 

2200 INPUTAU:EL(T9,2)=EL(T9,2)-AU:AU$*"-" 
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sovrappressione, al solo scopo di con¬ 
sentire una migliore posizione di par¬ 
tenza a Lauda e Prost. I tempi e le pre¬ 
stazioni in gara di questi due piloti risul¬ 
teranno quindi, nella maggior parte dei 
casi, leggermente inferiori rispetto a 
quelle reali, per quanto abbia cercato di 
compensare questo aspetto tenendo 
conto del minor consumo che il propul¬ 
sore tedesco consente ai due piloti, il 
che dovrebbe tramutarsi in ritmi ammis¬ 
sibili più elevati. Il calcolatore controlla, 
come detto, la corsa di tutte quelle vet¬ 
ture che non appartengono a team sot¬ 
to il diretto controllo di un giocatore. Nel 
caso in cui non vi siano giocatori, si può 
assistere ad una simulazione completa 
dell'andamento della gara. Il computer 
decide, innanzi tutto, il tipo di pneumati¬ 
ci da adottare, in base allo stato della 
pista nel corso della gara. Nel caso in 
cui la pista sia asciutta, esso attribuisce 
a ciascuna vettura il tipo di pneumatici 
indicato nel file originale (ottenuto con 
Tool-Kit), in modo da consentire la si¬ 
mulazione delle tattiche realmente se¬ 
guite da ciascun team, gara per gara 
(ad Imola, ad esempio, nessun team ha 


ritenuto opportuno effettuare soste al 
box per cambiare gli pneumatici; men¬ 
tre in Brasile quasi tutti ì team avevano 
previsto una sosta, per ragioni pura¬ 
mente climatiche). 

Il calcolatore attribuisce inoltre, ad o- 
gni pilota, un ritmo valido per la sezione 
immediatamente successiva, basando¬ 
si sulla sua attuale situazione di classifi¬ 
ca. Il meccanismo è molto semplice. 
Viene, innanzi tutto, valutato il ritardo 
del pilota dal concorrente che lo prece¬ 
de, ed il suo vantaggio sul conduttore 
che lo segue: viene quindi scartato il più 
alto tra tali valori e, in base al valore 
restante, viene attribuito un ritmo pro¬ 
porzionalmente superiore a cento, 
quanto minore è il valore prescelto. Il 
ritmo tenuto risulterebbe quindi inver¬ 
samente proporzionale al distacco che 
separa il concorrente in questione dai 
piloti con cui si trova direttamente a 
contatto: tanto più alto nel caso in cui 
ha possibilità di guadagnare o corre il 
rischio di perdere una posizione, tanto 
più basso nel caso in cui si trovi in una 
situazione di tutta tranquillità, in cui non 
può, cioè, aspirare a guadagnare posi¬ 


zioni, e, simultaneamente, non si trova 
direttamente sotto attacco da parte di 
chi lo segue. 

Queste considerazioni avrebbero por¬ 
tato, però, nel caso in cui due o più piloti 
si fossero trovati in situazioni di accesa 
“bagarre", ad un comportamento ana¬ 
logo a quello che è stato possibile os¬ 
servare in occasione del Gran Premio 
della Repubblica di San Marino di que¬ 
st'anno. La stampa sportiva (compresa 
quella specializzata), ha parlato di stu¬ 
pende prestazioni dei piloti rovinate da¬ 
gli errori degli ingegneri. Ciò che in real¬ 
tà è successo è. piuttosto, che il lavoro 
degli ingegneri è stato rovinato dalla 
miopia di alcuni piloti, i quali, nonostan¬ 
te il limite regolamentare di 220 litri per 
l’intera distanza della gara, hanno te¬ 
nuto un ritmo costantemente superiore 
a quello che avrebbe loro permesso di 
concludere la gara (ad esempio Senna 
e Johansson). Fa eccezione Alain Prost 
della McLaren che, grazie all'impianto 
di misurazione dei consumi montato sul 
motore Porsche della sua vettura (e che 
è stato sviluppato grazie all'esperienza 
della Casa tedesca in endurance), ha 
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+STR?(AU)+"%":PRINTW?(12)TAB(21 )AU$ 
2210 RETURN 

2220 PRINTW?(10)TAB(21)"{RED} -{ 3 *} 

(BLK)":PRINTW?(12)TAB(21)"{REdT TYRE 
S (BLK}" 

2230 PRINTW$(20)"(BLK}PNEUMATICI TENERI ( 
0), DURI (1)" 

2240 PRINT"0 'RAIN' (2) (RED}"; :INPUTLT:IF 

LT<0ORLT>2THEN2230 
2250 EL(T9,6)-EL(T9,6)+99999:RETURN 
2260 RE?(1)»" {RVS}[<A>](<R>)[<D>][<T>] 
[<S>][<F>](OFF)":RE?(2)="{RVS}-<> 
(OFF}": RE?(3)="(RVS)[<Z>](<E>)[<C>] 
(<@>)[<X>][<V>]{OFF}" 

2270 DT=EL(VO(T8+1),3)-EL(VO(T8-1),3) 

2280 F9=0:IFT8=1THEN:F9=1:DT=EL(VO(T8+1), 
3)-EL(T9,3) 

2290 IFT8=NITHEN:F9=2:DT»EL(T9,3)-EL(VO(T 
8-1),3) 

2300 UT=INT(DT/20):IFF9-1THEN2340 
2310 FORPV-1T03:RE$(PV)-CHR?(A4)+RE?(PV): 
NEXT 

2320 RE?(2)«RE?(2)+CHR?(A3)+RIGHT?(STR?(E 
L(VO(T8-1),4)),2)+"{RVS}={OFF}{BLK}" 

2330 D3=INT(Di/UT):GOTO2370 
2340 FORPV-1T03:RE?(PV)-CHR?(Al)+RE$(PV): 
NEXT 

2350 RE?(2)-RE?(2)+CHR?(A2)+RIGHT?(STR?(E 


L(T9,4)),2)+"{RVS}= {OFF}{BLK}" 

2360 D3=INT(D2/UT) 

2370 IFD3=0THEN2390 

2 380 FORYT-1TOD3 :RE$(1)=RE$(1...RE?(3) 

-RE?(3)+" ":RE?(2)-RE?(2)+"{RVS}- 
{OFF}":NEXT 

2390 IFF9-1THEN2420 

2400 FORPV-1T03:RE?(PV)-RE?(PV)+CHR?(Al): 
NEXT:GOSUB6000 

2410 RE$(2)-RE?(2)+CHR?(A2)+RIGHT?(STR?(E 
L(T9,4)),2)+"{OFF}":GOTO2440 

2420 FORPV=1T03:RE$(PV)-RE?(PV)+CHR?(A6): 
NEXT:GOSUB6000 

2430 RE$(2)=RE$(2)+CHR?(A5)+RIGHT?(STR?(E 
L(VO(T8+1),4)),2)+"{OFF}" 

2440 IFF9-0THENGOTO2460 

2450 RE?(2)-RE?(2)+"{RVS}-{OFF}{BLK}":RET 
URN 

2460 RE?(2)-RE?(2)+"{RVS}={OFF}{BLK}":D4- 
INT(D2/UT) 

2470 IFD4-0THEN2490 

2480 FORYT-1TOD4:RE$(1)-RE?(1)+" ":RE$(3) 
-RE?(3)+" ": RE?(2)-RE?(2)+"{RVS}- 
{OFF}":NEXT 

24 90 FORPV-1T03: RE?(PV)-RE?(PV)+CHR?(A6): 
NEXT 

2500 RE?(1)-RE?(1)+"{RVS}[<A>J(<R>1[<D>J 
[<T>1[<S>](<F>){OFF}":RE?(3)-RE?(3)+ 
"{RVS}[<Z>][<E>]{<C>]{<@>](<X>)[<V>] 
{OFF}" 

2 51 0 RE? (2) -RE? (2) +"{RVS}-O{0FF} "+CHR? (A 

5) 
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2520 RES(2)=RE$(2)+RIGHTS(STR$(EL(VO(T8+l 
),4)),2)+"{RVS}={OFF}{BLK}":RETURN 
2530 Al=CN(EL(J,13)):A2=NC(EL(J, 1 4) ) 

2540 IFSA<>0THENKK=AS:GOTO2560 
2550 Mi=12:GOSUBl150 :KK=INT(KK) 

2560 CA$ =CA$(KK,2) :IT=CA(KK,2):M1=IT 
2570 EL(J,6)=KK:GOSUBl150:EL(J,5)=EL(J,5) 
+IT+KK:SD=IT+KK:GOSUBl180 
2580 PRINTWS(23)"{RED}LA "CHRS(Al)CHRS(A2 
)EL$(J,2)"{OFF}{RED} N@"CHR$(144)EL( 
J, 4)"{OFF}" 

2590 CA$="{RED}ACCUSA PROBLEMI "+CA$:GOSU 
B2900 :PRINTWS(24)CA$:Q$=STR$(C)+"/l0 
00" 

2600 IFMO0THENQS=M$ +.+RIGHTS ( "00"+S$,2 

)+CHRS(34)+RIGHT$("00"+CS,3):GOT0262 
0 

261 0 IFSO0THENQ$ = S$+CHR$ (34) +RIGHTS("00" 
+C$,3) 

2620 GOSUBl920:GOSUBl140 

2630 PRINTWS(24)"{RED}PERDE AL GIRO IN ME 
DIA: "Q$ 

2640 GOSUBl920:GOSUBl140:RETURN 
2 650 FORI9 = 1TOB:Al=CN(TE(19,6)):A2=NC(TE( 
19,7)):GH=0:HG=0:GOSUB40000 
2655 IFHG=GHTHEN2815 

2660 PRINT"{CLR}{RED}TEAM :"CHR$(Al)CHR$( 
A2)TES(19,1)"{RED}{OFF}{GIU’}" 

2670 FORY = lT02:18 = 1 
2680 IFI8>ATHEN2810 

2690 IFEL(18,4)<>TE(19,Y)OREL(I8,4)=0THEN 
2800 

2700 Al=CN(EL(18,13)):A2=NC(EL(18,14)) 
2710 PRINT"{ 2 GIU’}{RED}N@"CHR$(A1)CHR$( 
A2)EL(I8,4)TAB(7)EL$(l8,l)"{OFF} 

{RED} " ; 

2720 PRINTTAB(23)EL$(18,4)"{BLK}{SU}" 

2730 PRINT:PRINT"{GIU'}"CHR$(Al)CHR$(A2)E 
L$(I8,2)"{RED}" 

2740 EL(I8,8)=(GD*LP/EL(18,9))/2+RND(PEEK 
(112))*5+2.5 

2750 IFEL(18,8)>220THENEL(18,8) =220 
2760 IFEL(18,11)=0THENEL(18,8)=EL(18,8)*2 

2770 IFSP$="BAGNATA"THENEL(18,17)=3:EL(I8 
v ,18) =3 

2780 IFEL$(18,4)="NON QUALIFICATO"THEN281 
0 

2790 PRINT:TE$(19,Y+l)=EL$(18,1):TE(I9,2+ 
Y)=18:G0T02810 
2800 18=18+1:GOTO2680 
2810 NEXT:GOSUB4450 
2815 NEXT:RETURN 

2820 PRINT"{CLR}{RED}"GP$"{BLK}":FORI9 = 1 T 
OB:PQ=2 

2830 F0RY=1T02:IFTE$(19,Y+l)="NON QUALIFI 
CATO"THENPQ=PQ-1 
2840 NEXT 

2850 IFPQ=0THEN2890 

2 860 Al =CN(TE(19,6)) :A2=NC(TE(19,7)) 

2870 PRINT:PRINT"{BLK}"RIGHTS(" 

{ 2 SPAZI}"+STR$(19),2)"@"CHR$(Al)CH 


R$(A2)TE$(19,1); 

2880 IFPQ= 1 THENPRINTTAB(35)"{OFF}{RED} ( 1) 
{BLK}"; 

2890 NEXT:PRINT:RETURN 

2900 CA$=LEFT$(CA$+"{ 25 SPAZI}",39):RETU 
RN 

2910 DIMELS(30,4),EL(30,25),W$(26),TE$(18 
,3),TE(18,7),CA$(12,2),CA(12,2),VO(3 
0) 

2920 FORI=lTO30:VO(I)=1:NEXT 
2930 DIMX(30),X$(30),Q$(3,2):Q$(1,2)="U 
[<R>]{RVS}U{OFF}0{RVS}[<S>]{OFF} 

[<S>]" 

2940 Q$(2,2)="-<){ 2 SPAZI}]":Q$(3,2)="J 
[<E>]{RVS}j{OFF}L{RVS}[<X>]{OFF} 

(<X>)" 

2950 Q$(1,0)="[<A>] {RVS} [<A>] {OFF}P{RVS} 

I [<R>] {OFFU ":Q$ (2,0) ="{OFF}T 
T 2 SPAZI}(>t{BLK}=" 

2960 Q$(3,0)="[<Z>]{RVS}[<Z>]{OFF}@{RVS} 

K[<E>]{OFF}K ":DIMRS(4,2),NC(T5) 

2970 R$(1,2)="{RVS}{<*>){OFF}":R$(2,2)= "- 
":R$(4,2)="£":R$(1,0)="{RVS}£{OFF}": 
R$(2,0)="-" 

2980 R$(4,0)="[<*>]=":R$(3,2)=R$(2,2):R$( 
3,0)=R$(2,0) : RETURN 

2990 FORI0 = 0TOl4 :PK=PEEK ( 51 204+JK*4 0 + 10) + 
1 28 

3000 IFPEEK(51204+JK*40+I0)>=128THENPK=PE 
EK(51204+JK*40+l0)-128 
3010 POKE51204+JK*40+10 , PK:NEXT:RETURN 
3020 POKE(55299+JK*40) ,2:POKE(5531 5+JK*40 
) ,2 

3030 POKE(51203+JK*40),29:POKE(51219+JK*4 
0) ,27-.RETURN 

3040 POKE(51 203+JK*40) ,32 :POKE(51219+JK*4 
0) ,32 :RETURN 

3050 GOSUB4510:IFNC = 0THENRETURN 
3060 PRINT"{CLR}":FORU=lTONC 
3070 FORY=lT02:T8=1 
3080 IFT8>NITHEN3360 

3090 T9=VO(T8):IFTE(N(U),Y)<>EL(T9,4)THEN 
T8=T8+1:GOTO3080 
3100 IFEL(T9,24) O0THEN3360 
3110 Al =CN(TE(N(U),6)):A2=NC(TE(N(U),7)) 
3120 PRINT"{CLR}{RED}TEAM "CHR$(Al)CHR$(A 
2)TE$(N(U),1)"{OFF}{BLK}" 

3130 PRINT"{GIU 1 }{RED}VETTURA N@"CHR$(Al) 
CHR$(A2)TE(N(U),Y)EL$(T9,2)"{OFF} 
{BLK}" 

3140 PRINT"{GIU'}"CHR$(Al)CHR$(A2)TE$(N(U 
),Y+l)"{OFF}{BLK}" 

31 50 FORTB = l TOl2 :PRINTTAB(20)TB$(TB) :NEXT 
:FORTB=11TOl3:PRINTTAB(20)TBS(TB): NE 
XT 

3160 Al=NC(TE(N(U),7)):A2=CN(TE(N(U),6)) 

3170 PRINTWS(7)TAB(21)CHR$(Al)CHR$(A2)EL$ 

(T9,3)"{OFF}{BLK}" 

3180 PRINT"{BLK}"WS(9)TAB(21)T8"{SIN}@": I 
FT8=1THEN3220 

31 90 Di =EL(T9,3)-EL(VO(T8-1),3):SD=Dl:GOS 
UB3390 

3200 A3 =CN(EL(VO(T8-1) ,13)) : A4=NC(EL(VO(T 
8-1),14)):PRINT"{GIU 1 }"TAB(21)"{RED} 
-{BLK}"SG$ 


45 





potuto rilevare l'eccessivo consumo 
provocato dalla foga di chi lo precede¬ 
va e, nonostante si trovasse a diretto 
contatto di Senna ed in lotta per la pri¬ 
ma posizione, ha avuto il coraggio e 
l'intelligenza di sollevare il piede dall'ac¬ 
celeratore e, ponendo la massima fidu¬ 
cia nell'elettronica, diminuire il ritmo si¬ 
curo che chi lo precedeva avrebbe do¬ 
vuto arrestarsi per mancanza di carbu¬ 
rante. Il vero errore, nel suo caso, l'han¬ 
no commesso gli ingegneri della McLa¬ 
ren, che hanno mandato in pista una 
vettura sotto peso di due chili (troppo 
poco per rappresentare un reale van¬ 
taggio -cioè un tentativo di "barare"-, 
ma sufficiente per essere squalificati). Il 
valore determinato dal calcolatore in 
base al meccanismo suddetto, viene 
quindi ridotto in modo da consentire di 
arrivare al termine con il quantitativo di 
benzina a disposizione, con un calcolo 
che non dovrebbe differire di molto da 
quello svolto dall'elettronica del motore 
Porsche che (a quanto si dice), provve¬ 
de addirittura a ridurre automaticamen¬ 
te la pressione del turbo per cautelarsi 


da "sviste" di piloti troppo "combattivi". 

Il calcolatore prende quindi in consi¬ 
derazione ciascun concorrente (com¬ 
presi quelli che non compaiono sullo 
schermo), e genera un tempo medio per 
la sezione seguente della corsa, pro¬ 
porzionale, anche se debitamente “ran- 
domizzato", al ritmo tenuto dalla 
vettura. Aggiorna inoltre il miglior tempo 
sul giro eventualmente fatto segnare 
dalla vettura in questione, provvedendo 
a registrarlo unitamente al giro in cui è 
stato fatto segnare e, nel caso in cui 
esso risulti attualmente il migliore in as¬ 
soluto, provvede a comunicarlo unita¬ 
mente alla media corrispondente. In 
questa stessa sezione, vengono aggior¬ 
nati i valori riguardanti la quantità di 
carburante di cui ciascuna vettura di¬ 
spone, lo stato degli pneumatici e. inol¬ 
tre, vengono generati gli eventuali 
"guai" di cui le vetture sono vittime, tra¬ 
mite un meccanismo di casualità che è, 
anche qui, proporzionale al ritmo tenu¬ 
to. Questi problemi si possono classifi¬ 
care in tre categorie: 

• trascurabili. Vengono segnalati da un 


solo colpo di sirena (se avete il volume 
alzato, naturalmente!) e comportano un 
ritardo medio sul giro inferiore al secon¬ 
do e proporzionale alla gravità del par¬ 
ticolare che presenta un funzionamen¬ 
to irregolare. Il ritardo in questione ver¬ 
rà, naturalmente, accumulato nei giri 
successivi, fino a quando non si decide¬ 
rà di rientrare ai box, pagando il tempo 
necessario per porre riparo al guasto. 

Un buon direttore sportivo dovrà quin¬ 
di decidere se far rientrare ai box la 
propria vettura o tenerla in pista in con¬ 
dizioni imperfette, ma accumulando un 
ritardo comunque inferiore a quello e- 
ventualmente registrabile per la sosta ai 
box. é, ad esempio, consigliabile inter¬ 
venire per ovviare a problemi di maneg¬ 
gevolezza o tenuta di strada ad inizio 
gara (il tempo impiegato è senz'altro 
inferiore a quello eventualmente accu¬ 
mulabile). Non è invece conveniente, in¬ 
terrompere la corsa di una vettura che 
accusa, verso metà gara, problemi di 
motore, poiché il tempo della sosta su¬ 
pererà senz’altro il ritardo eventual¬ 
mente accumulabile per i problemi ac- 
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3210 PRINT"{GlU'}"TAB(21)CHR$(A3)CHR$(A4) 
EL$(VO(T8-1),3)"(OFF)(BLK)" 

3220 IFT8-NITHEN3260 

3230 D2=EL(VO(T8+l),3)-EL(T9,3):SD«D2:GOS 
UB3390 

3240 A5»CN(EL(VO(T8+1),13)):A6=NC(EL(VO(T 
8 + 1) ,14)) :PRINT"(GIU 1 )"TAB(21)"(BLU) 
+{BLK)"SG$ 

3250 PRINT"(GIU 1 }"TAB(21)CHR$(A5)CHR$(A6) 
EL$(VO(T8+1),3)"(OFF){BLK}" 

3260 IFGD-G-0THEN3290 

3270 GD$=RIGHT$(STRS(GD-G),LEN(STR$(GD-G) 

)):GD$="-(WHT)"+GD$+"(BLK) G." 

3280 PRINT"(GIU'}(BLK}"TAB(21)LEFTS(GD$,9 
)"(OFF)(BLK)" 

3290 GOSUB2260:PRINTWS(20):FORYT»1T03:PRI 
NTW$(20+YT)RE$( YT):NEXT:GOSUB4 4 50 
3300 IFG>=GDORF% = 2THEN3360 
3310 PRINT"(CLR)"TE§(N(U),Y+l)"(RED)RITMO 
DI GARA: "EL(T9,2) 

3320 PRINT"(GIU’}IL SERBATOIO DELLA VETTU 
RA CONTIENE:" 

3330 PRINTINT(EL(T9,8))" LITRI.(BLK)" 

3340 PRINT"(GIU')(RED)CONDIZIONI DEGLI PN 
EUMATICI:"INT((EL(T9,17)*100)/EL(T9, 

18))"%(BLK}" 

3350 GOSUB1980 
3360 NEXT 
3370 NEXT 


3380 PRINTCHRS(142) : RETURN 
3390 IFSD/EL(T9,1)>1THEN3480 
3400 GOSUB1180:SG$»"":IFM=0THEN3420 
3410 SG$=SG$+RIGHT$(M$,LEN(M$))+'" ":GOT03 
440 

3420 IFS=0THEN3450 

3430 IFM=0THENSG$=SG$+S$+CHR$(34):G0T0345 
0 

3440 SG$=SG$+RIGHT$("00"+S$,2)+CHR$(34) 
3450 IFM=0ANDS=0THENSG$=SG$+C$:GOTO3470 
3460 SG$ a SG$ +RIGHT$("00"+C$,3) 

3470 SG$=LEFT$(SG$,7): RETURN 
3480 DD«INT(SD/EL(T9,1)):DD$ = " GIRI":IFDD 
■1THENDD$=" GIRO" 

3490 SG5“LEFTS(STR$(DD)+DD$,7): RETURN 
3500 YU-0: FORICITOA:IFEL(1,7) OOTHENYU-1 
3510 NEXT:IFYU=0THENRETURN 
3520 PRINT"{CLR}{ 4 GIU')(RED)STO RIORDIN 
ANDO LA CLASSIFICA ":CJ=7:JC»A:GOSUB 
1380:T8=0:T7=0 

3530 IFELtVO(A-T8-T7*l5),7)=0THEN3640 
3540 PRINT"(CLR)(RED){ 2 DES)CAMPIONATO D 
EL MONDO CONDUTTORI F.l(BLK)" 

3550 PRINT"{ 2 GIU')(BLUJ^TAB(5)"PILOTA"T 
AB(31)"PUNTI(GIU’}{BLK}" 

3560 IFT8=15THENGOTO3630 

3570 IN=T8+T7*15:NN-VO(A-IN):IN$=RIGHT$(" 
{ 2 SPAZI}"+STR$(IN+1)+"@",4) 

3580 IFEL(NN,7)=0THENGOSUB4440:GOTO3640 
3590 Al »CN(EL(NN,13)):A2=NC(EL(NN,14)) 
3600 PRINTINSTAB(5)CHR$(Al)CHR$(A2)EL$(NN 
, 1 ) ? 
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cusati. 

Inutile dire che il calcolatore si prende 
carico anche di queste decisioni, per i 
concorrenti sotto il suo controllo; 

• gravi (segnalati da due colpi di sire¬ 
na). Questi problemi determinano l'im¬ 
mediato arresto ai box del conduttore, 
con una conseguente perdita in termini 
di tempo proporzionale alla gravità del 
problema. Nel caso in cui la vettura ac¬ 
cusasse già, in precedenza, problemi 
"trascurabili", con il loro tipo coincide 
quello dei problemi che hanno costretto 
la vettura al rientro ai box; 

• irreparabili (tre colpi di sirena). 

Costringono la vettura che li subisce al 

ritiro immediato. Anche in questo caso 
essi sono legati ad eventuali problemi 
accusati in precedenza cui non sia sta¬ 
to posto riparo con una sosta al box. Il 
calcolatore provvede a generare il giro 
in cui il ritiro si è verificato (ricordiamo 
che le sezioni della corsa esaminate so¬ 
no circa pari ad un settimo del percorso 
totale, cioè da sei-sette fino a dieci-un¬ 
dici giri, in base alla pista ed alla lun¬ 
ghezza della corsa). Il calcolatore prov¬ 


vede inoltre a far rientrare, autonoma¬ 
mente, quei piloti che si trovino ad avere 
pneumatici particolarmente degradati 
(anche nel caso in cui i loro direttori 
sportivi, cioè voi, non se ne siano resi 
conto). In questo caso il tempo neces¬ 
sario per la sostituzione risulterà legger¬ 
mente superiore al normale (si presume 
che i meccanici siano colti di sorpresa 
da un cambio imprevisto). I piloti della 
nostra simulazione, come abbiamo vi¬ 
sto, rappresentano dei veri esempi di 
professionalità, poiché eseguono alla 
lettera tutto quanto viene loro ordinato, 
ma non si può pretendere che rischino 
l’uscita di pista per le “sviste" di un 
direttore sportivo, così come rifiuteran¬ 
no un ordine ingiustificato di rientro ai 
box. Dopo aver preso in considerazione 
ciascuno dei piloti in corsa (compresi 
quelli che non compaiono sullo scher¬ 
mo, nel caso in cui occupino posizioni 
oltre la ventesima); il calcolatore riordi¬ 
nerà la classifica parziale al termine del¬ 
la prima sezione. Visualizzerà questa 
classifica in una forma grafica sintetica, 
efficace, che speriamo risulterà a voi 


gradevole. La posizione di ciascun pilo¬ 
ta sarà indicata dal numero di gara cor¬ 
rispondente, racchiuso nell'effige stiliz¬ 
zata di una vettura recante i colori pro¬ 
pri del pilota in questione. Le distanze 
tra le vetture sono proporzionali ai di¬ 
stacchi che le separano. Ovviamente la 
precisione della rappresentazione ri¬ 
sente non poco della bassa capacità di 
risoluzione ottenibile tramite la semplice 
utilizzazione di caratteri grafici perso¬ 
nalizzati, ma l'uso dell’alta risoluzione 
avrebbe complicato notevolmente il 
meccanismo di visualizzazione dei di¬ 
stacchi. Nella circostanza in cui un pilo¬ 
ta accusi un distacco rispetto al leader 
della corsa superiore ad un giro, la vet¬ 
tura contenente il suo numero di gara 
viene preceduta da un piccolo riquadro 
rosso contenente un numero bianco, 
corrispondente al numero di giri di ritar¬ 
do rispetto al capofila. Il calcolatore vi 
permette di osservare la suddetta rap¬ 
presentazione senza limiti di tempo. Per 
proseguire, sarà sufficiente premere il 
tasto Return, come segnalato dalla 
scritta che compare a fondo schermo. Il 
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3610 PRINT"(OFF){BLK}"TAB(34-LEN(STR$(INT 
(EL(NN,7)))))EL(NN,7) 

3620 T8=T8+1:GOTO3560 

3630 GOSUB4440:IFT8<ATHENT8=0:T7=T7+1 :GOT 
03530 

3640 RETURN 

3650 CM=1:IFG<INT(GD*.75)+1THENCM=0.5 
3660 FORVI =*1T06:EL(V0( VI),7)=EL(VO(VI),7) 
+PU(VI)*CM:NEXT:RETURN 
3670 PRINT"(CLR}{ 4 GIU'}{RED}STO RIORDIN 
ANDO LA GRIGLIA DI PARTENZA}BLKCJ 
= 1 :JC=A:GOSUBl380 
3680 PRINT"{CLR}" 

3690 R$“"(< 39 +>]":GOSUB4410 

3700 GR$="[<A>]{ 15 *}(<S>) { 5 SPAZI) 

[<A>){ 15 *}[<S>]":L1$="( 15 SPAZI) 
":V=1 

3710 IFV>3THEN4010 
3720 W=0 

3730 IFW>8THEN4000 
3740 IF(V-l)*10+W+1>QTHEN4010 
3750 R$="“:GOSUB4410:R$="{ 14 SPAZl)"+STR 
$(((V-l)*5+W/2+l)) 

3760 IF ( ( V-*-1 ) *5+W/2 + l ) < 1 0THENR5 = " "+R$ 
3770 R$=R$+"£ FILA":GOSUB4410:R$="":GOSUB 
4410 

3780 I8=VO((V-l)*10+W+1):I9=VO((V-l)*1 0+W 

+ 2 ) 

3790 R$=GR$:GOSUB4410 


3800 Al=CN(EL(18,13)):A2=NC(EL(18,14)):A3 
=CN(EL(19,13)):A4=NC(EL( 19,14)) 

3810 IFPP$="D"THEN3860 

3820 R$="-"+CHR$(Al)+CHR$(A2)+EL$(18,1)+" 
{BLKj{OFF}-{ 5 SPAZI)--" 

3830 IFQF=OORQ<>((V-l)*1 0+W+1 )THEN3850 
3 84 0 R$=R$+L1 $+" (BLK) (OFF )-_" : GOSUB441 0 :GO 
TO3890 

3850 R$=R$+CHR$(A3)+CHR$(A4)+EL$(19,1)+" 

{BLK}(OFF}-":GOSUB4410:GOTO3890 
3860 R$="-"+CHRS(A3)+CHR$(A4)+EL$(19,1)+ " 
{BLKT{OFF}-{ 5 SPAZI}-" 

3870 IFQF=1 AND ( (V-l ) *1 0+W+T) «=QTHENR$ = "-"+ 
Ll$+"(BLK){OFF}-{ 5 SPAZI}-" 

3880 R$=R$+CHR$(Al)+CHR$(A2)+ELF(I8,1)+" 

{BLK)(OFF}-":GOSUB4410 
3890 R$ = "":GOSUB441 0:FQ=Q-((V-l)*10+W):IF 
FQ>2THENFQ=2 

3900 FORX=1TOFQ: 17 =VO((V-l)*1 0+W+X) 

3910 EL(I7,3)=((V-l)‘5+W/2+1)*1000+EL(I7, 
1)-EL(1,1):SD=EL(17,1):GOSUB1180 
3920 C$=RIGHT$("00"+C$,3) 

3930 M$=STR$(M)+"'":S$=RIGHT$("00"+S$,2)+ 
CHR$(34):ST$=M$+S$+C$+"{ 10 SPAZI}" 
3940 IFPP$="S"THENR$=R$+"{ 3 SPAZI)"+ST$: 
GOTO3980 

3950 IFQF=OOR((V-l)*10+W+X)<QTHEN3970 
3960 R$="{ 25 SPAZI}"+ST$+R8:GOTO3980 
3970 R$="{ 3 SPAZI)"+ST$+R$ 

3980 NEXT:R$=LEFT$(R$,39):GOSUB4410:R$="" 
:GOSUB4410 
3990 W=W+2:GOTO3730 
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4000 V=V+1:G0T03710 

4010 IFQ< >ATHENFORTY=OTO(A—Q—1) :YT=VO(A-T 
Y):EL$(YT,4)= "NON QUALIFICATO":NEXT 
4020 FORI = 1T024:R$ = "":GOSUB441 0:NEXT 
4 030 PRINTCHRS(142) : RETURN 
4040 FL=0 :FORU=1TONC:FORKW=1T02:1FTE(N(U) 
/KW)=EL(J,4)THENFL=1 
4050 NEXT:NEXT:IFFL=1THENFL=0: RETURN 
4060 IFEL(J,8)-FG*LP/EL(J,9)<=0THENGOSUB4 
290:RETURN 

4070 IFMT=9E9THENMT=TM:RETURN 

4080 MT=TM:Al=CN(EL(J,13)):A2=NC(EL(J,14) 

) 

4090 PRINTW$(23)"{RED)MIGLIOR TEMPO SUL G 
IRO : "CHR$ ( Al ) C1IR$ ( A2 ) EL$ ( J, 1 ) " {OFF} " 

4100 SD=MT:GOSUBl180:C$=RIGHT$("00"+C$,3) 

4110 M$=MS+.:S$ = RIGHT$("00"+SS,2)+CHRS( 

34):ST$=M$+S$+C$ 

4120 ME$ =STR$(INT(((LP/MT)*3600)*1 000)/l0 
00)+" KM/H" 

4130 TW$ = "{RED}IN"+ST$+". MEDIA:"+ME$+". 

{ 16 SPAZI }":TW$=LEFT5'(TW$, 40) 

41 40 PRINTWS(24)TW$:GOSUB5400:GOSUBl920:G 

OSUBl140 :RETURN 

4150 PRINT"{CLR}{GIU'}{RED}STO RIORDINANO 
O I TEMPI SUL GIRO IN GARA":CJ=10 :JC 
=A:GOSUBl380 
4160 T8=0:T7=0 
4180 IFT8=5THENGOTO4260 

4190 IN=T8+T7*5:NN=VO(IN+1 ) :IN$=RIGHT$(" 

{ 2 SPAZI}"+STR$(IN+l)+"@",4) 

4200 IFEL(NN,10)=9E90RIN+1>QTHEN4265 

4205 IFT8=OTHENGOSUB7170 

4210 Al=CN(EL(NN,13)):A2=NC(EL(NN,14)) 

4220 SD=EL(NN/10):GOSUBl180:C$=RIGHT$("00 
"+C$,3) 

4230 M$ =M$ +.:S$=RIGHT$("00"+S$,2)+CHR$( 

34):ST$ =M$+S$+C$ 

4240 PRINTINSTAB(5)CHR$(Al)CHR$(A2)EL$(NN 
,1)"{OFF}{BLK}"TAB(30-LEN(ST$))ST$ 
4245 GOSUB7000 
4250 T8 = T8+1:GOT041 80 

4260 GOSUB4440:IFT8<AANDIN+1<=QTHENT8=0:T 
7=T7+1:GOT04180 
4265 IFT8=0THENRETURN 
4270 GOSUB4440:RETURN 

4280 FORXU = 51 960T052200:POKEXU,32 :NEXT:RE 
TURN 

42 90 GOSUBl160 :IT=10000:M1=6000:CAS="CAMB 

IO GOMME" 

4300 EL(J,17)=LT+1:Al=CN(EL(J,13)):A2=NC( 
EL(J,14)):EL(J,18)=LT+1 
4310 IFEL(J,16)>=540THEN4330 
4320 EL(J, 1 6)=54 0:CA$ = "ZAVORRARSI":IT=500 
0:Ml=5000 

4330 GOSUBl150:EL(J,3)=EL(J,3)+IT+KK:SD=I 
T+KK:GOSUBl 180 

4340 PRINTW$(23)"{RED}LA "CHR$(Al)CHR$(A2 
)EL$(J,2)"{OFF}{RED} N@"CHR$(144)EL( 
J, 4)"{OFF}" 


4 3 50 CA$ = "{RED}E' AI BOX PER "+CA$:GOSUB2 
900 :PRINTWS(24)CA$;:Q$=STR$(C) 

4360 IFMO0THENQ$=MS + " ' "+RIGHTS ("00"+S$,2 
)+CHR$(34)+RIGHT$("00"+CS , 3) :G0T0438 
0 

4370 IFSO0THENQ$=S$+CHR$ (34) +RIGHTS ("00" 
+C$,3) 

4380 GOSUBl920:GOSUBl140 

4390 PRINTWS(24)"{RED}TEMPO DELLA SOSTA: 
"Q$ 

4400 GOSUBl920:GOSUBl140:RETURN 
4410 PRINTWS(24)R$ 

4420 FORXX=lTO750:NEXT 
4430 SYS(B9): RETURN 
4440 RF=FRE(0) 

4450 PRINTWS(25)TAB(5)"{REDjPREMI 'RETURN 
’ PER CONTINUARE{SU}{BLK}":GOSUB5400 

4460 GETRS : IFRSOCHRS ( 1 3) THEN4460 
4470 PRINT"{CLR}": RETURN 

4480 PRINTWS(25)TAB(12)"{RED}ATTENDERE PR 
EGO{SU}{BLK}": RETURN 

4490 B9 = 491 52:CK% = 0:FORI = 0TOl04:READA%:PO 
KE(B9+I),A%:CK%=CK%+A%:NEXT 
4500 RETURN 

4 510 PRINT"{CLR}":POKE53272,58 :POKE648,20 
4 :PRINT"{CLR}{BLK}" 

4520 IR=2:IC=1:CD=280-NI*7:UM=INT((EL(VO( 
NI),3)-EL(VO(1),3))/CD) 

4530 IN=1 :FORCC =1TONI-1:X(CC)=INT((EL(VO( 
CC+1) , 3)-EL(VO(CC),3))/UM) 

4540 IN=EL(VO(CC+l),3) 

4550 X$(CC)=RIGHT$(STR$(EL(VO(CC),4)),2): 
NEXT 

4560 X$(NI)=RIGHT$(STR$( EL ( VO (NI ) , 4) ) , 2) 
4570 VS=1:FORCC=1TONI :SV=INT(VS+1.5) 

4580 FOR1 = 1TO3 :Z$(I)=Q$(I,SV) :NEXT 
4590 D=INT((EL(VO(CC),3)-EL(VO(l),3))/EL( 
VO(l),1)):DS="{RVS}"+RIGHTS(STR$(D), 
1)+"{OFF}" 

4600 IFD>=10THEND1$="{RVS}"+LEFTS(RIGHTS( 
STRS(D),2),1)+"{OFF}" 

4610 IFCC=1 THENZS (2) = "*-<) { 2 SPAZI}]" 

4620 IFCC=NIANDVS=-1THENZS(2)="[ 

{ 2 SPAZI}(>t“ 

4630 IFCC=NIANDVS=1THENZS(2)="►<) 

{ 2 SPAZI}]" 

4640 IFVS=-1THEN4740 

4650 Al =NC (EL( VO (CC ) ,14) ) : FORI = 1 T03 .-PRINT 
WS(IR-2+I)TAB(IC+1)CHR$(Al)Z$(I):NEX 
T 

4660 A2=CN(EL(VO(CC),13)):PRINTWS(IR)TAB( 
IC+4)CHR$(Al)CHRS(A2)X$(CC)"{OFF} 
{BLK}" 

4670 IFD=0THEN4690 

4680 PRINT"{RED}"WS(IR)TAB(IC)D$"{BLK}": I 
FD>=1OTHENPRINT"{RED}"W$(IR-1)TAB(IC 
)DiS"{BLK}" 

4690 IFCC=NITHEN4840 

4700 IC=IC+7:N9=X(CC):N8=N9 

4710 IF38-(N9 + IC)<7THENN9 = 38-IC 

4720 IFN9+IC>=38THENGOSUB4850:GOTO4830 

4730 FORJJ=OTON9:PRINTWS(IR)TAB(IC+JJ)" 

{BLK} = ":NEXT:IC=IC+N9:GOT04 83 0 
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COMMODORE 64 


corso del programma muta, a questo 
punto, in base al fatto che si stia sempli¬ 
cemente assistendo ad una simulazio¬ 
ne della gara o vi si stia attivamente 
partecipando, controllando uno o più 
team. Nel primo caso, infatti, il program¬ 
ma prosegue riproponendo la classifica 
relativa alle prime venti posizioni (o a 
tutte le vetture ancora in corsa), analo¬ 
ga alla schermata iniziale. In tale occa¬ 
sione, però, a fianco del nome di cia¬ 
scun pilota ed al numero che lo con¬ 
traddistingue, comparirà anche il di¬ 
stacco rispetto al leader della corsa (e- 
spresso in minuti primi, minuti secondi e 
millesimi di secondo, se è inferiore ad un 
giro). Eventuali piloti ritirati, ma ancora 
classificati per aver percorso più dei set¬ 
te decimi della distanza coperta dal vin¬ 
citore, verranno segnalati dalla scritta 
"Ritirato”. 

L'intestazione indicherà i giri mancanti 
al termine della gara, i giri percorsi e la 
media tenuta dal vincitore. Se, invece, 
uno o più giocatori controllano alcuni 
dei team in gara, il calcolatore fornirà, 
per ciascuno dei piloti controllati ed an¬ 


cora in gara, una rappresentazione 
grafica ancora più approfondita rispet¬ 
to a quella offerta dalla situazione ge¬ 
nerale che la precede. Oltre al nome del 
team, del pilota, al numero di gara ed al 
tipo della vettura, il calcolatore mostre¬ 
rà un facsimile dei cartelli di segnalazio¬ 
ne ancora oggi utilizzati dai direttori 
sportivi dei team per comunicare con i 
propri piloti. Questo cartello riporterà, 
sotto il nome del pilota riservato a que¬ 
sto scopo, il ritardo rispetto al pilota che 
precede il conduttore in questione, pre¬ 
ceduto da un “ — " rosso, ed il nome del 
pilota stesso; il vantaggio sul concor¬ 
rente che segue, contrassegnato da un 
“ + " blu ed il suo nome, infine il numero 
di giri mancanti. Ai piedi di questo tabel¬ 
lone da segnalazioni comparirà una 
rappresentazione grafica della situa¬ 
zione mostrata dal tabellone stesso. Il 
fatto di limitare l’esame ai soli concor¬ 
renti a diretto contatto con il pilota da 
voi controllato, consente una maggior 
precisione rispetto alla rappresentazio¬ 
ne grafica “totale" della classifica. Una 
volta presa visione di questa schermata 


sarà possibile passare ad una seconda 
pagina che, oltre a ricordare i valori 
attuali delle variabili che controllano 
l’andamento della gara del vostro pilota 
(ritmo di gara, carburante a disposizio¬ 
ne, stato degli pneumatici), consente 
anche di comunicargli le decisioni pre¬ 
se. 

Il calcolatore vi chiederà esplicitamente 
se desiderate segnalare al vostro pilota 
(in caso affermativo è sufficiente pre¬ 
mere ”s”); e tale domanda vi verrà ripro¬ 
posta anche dopo aver segnalato, in 
modo da poter porre riparo ad eventuali 
errori o scegliere altre voci del menu che 
compare a fianco del consueto tabello¬ 
ne da segnalazioni. Per esprimere la 
scelta sarà sufficiente premere i tasti 
corrispondenti alle singole voci. "B”, 
per "Box”, cosente di segnalare al pro¬ 
prio pilota di rientrare ai box per porre 
riparo ad eventuali problemi che rallen¬ 
tino la corsa della vettura sotto il vostro 
controllo. Nel caso in cui la vettura non 
accusi problemi il pilota si “rifiuterà”, 
come detto, di perdere tempo rientran¬ 
do ai box. “F". per “Fast", e “S". per 


Seguito listato 2. 


4 740 Al-NC(EL(VO(CC),14)): FORI»1T03:PRINT 
W$(IR-2+I)TAB(IC-7)CHRS(Al)ZS(I):NEX 
T 

4750 A2»CN(EL(VO(CC),13)):PRINTWS(IR)TAB( 
IC-6)CHR$(Al)CHR$(A2)X$(CC)"(OFF) 

(BLK)" 

4760 IFD-0THEN4780 

4770 PRINT"(RED)"W$(IR)TAB(IC-1)DS"{BLK}" 
:IFD>»1OTHENPRINT"{RED}"WS(IR-1)TAB( 
IC-1)Di$"{BLK)" 

4780 IFCC=NITHEN4840 

4790 IC=IC-7:N9=X(CC):N8=N9 

4800 IFIC-N9<8THENN9=IC-1 

481 0 IFIC J -N9<«1 THENGOSUB491 0 :GOTO4 830 

4820 FORJJ»1TON9:PRINTWS(IR)TAB(IC-JJ)" 

(BLK}-":NEXT:IC»IC-N9:GOT04 830 
4830 NEXT 

4 840 GOSUB4440:PRINT"(CLR)":POKE53272,40: 
POKE64 8,200:PRINT"(CLR)"CHRS(142): RE 
TURN 

4850 FORJJ»0TO37-IC:PRINTWS(IR)TAB(IC+JJ) 
"=":NEXT 

4860 FORI»1T04:PRINTWS(IR-1+1)TAB(38)RS(I 
,SV)"(SIN}":NEXT:IR=IR+3:VS=-VS 
4 870 CN=N8 + IC-38:IC»38:IFCN<»0THENRETURN 
4880 IFIC-CN<8THENCN=IC-1 

4890 IFIC-CN<=1THENN8»N8-3 8:GOSUB4 970 :GOT 
0491 0 

4900 F0RJJ=1T0CN:PRINTWS(IR)TAB(IC-JJ)"=" 


:NEXT:IC=IC-CN: RETURN 
4 910 FORJJ=1TOIC-1 :PRINTWS(IR)TAB(IC-JJ)" 
=":NEXT 

4 920 F0RI = 1T04:PRINTWS(IR-1+1)R$(I,SV): NE 
XT:IR=IR+3;VS=-VS 

4930 CN=N8-IC:IC=1:1FCN»<0THENRETURN 
4940 IF38-(CN+IC)<7THENCN=38-IC 
4950 IFCN+IC>=38THENN8=N8-38:GOSUB4970:GO 
TO4850 

4960 PORJJ=0TOCN-1:PRINTWS(IR)TAB(IC+JJ)" 
=":NEXT:IC=IC+CN:RETURN 
4970 IFSV=0THENSV=2:RETURN 
4980 IFSV=2THENSV=0 tRETURN 
4990 EL(J,8)=EL(J,8)-FG*LP/EL(J,9)+(100-E 
L(J,2))/10 

5000 EL(J,17)-EL(J,17)-(FG*LP/330000+(100 
-EL(J,2))/l000+PE/3000)*.7:RETURN 
5010 HA=0:CF=.87:FC»43:SPS="ASCIUTTA":Mi» 
100:GOSUBl150 :IFKK>PPTHENRETURN 
5020 HA»5:CF=.97 :FC»27:SPS“"BAGNATA":RETU 
RN 

5030 PRINT"(CLR)(RED)"WS(3)TAB(3)GP$" 

(BLK)":PRINTWS(7)"LUNGHEZZA DELLA PI 
STA{RED}"LP"(BLK)METRI." 

5040 PRINTWS(9)"DURATA DELLA CORSA(RED)"G 
D"(BLK)GlRI." 

5050 PRINTWS(11)"PER UN TOTALE DI(RED)"GD 
*LP/1000"(BLK)KM." 

5060 PRINTWS(13)"STATO DELLA PISTA:(RED)" 
SPS :GOSUB444TT:RETURN 
5070 F8=0:F9=0:NF=0 

5080 GETMS:PRINT"(CLR)"TAB(15)"{RED)GRAND 
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PRIX{BLK}" 

5090 PRINTWS(5)TAB(3)"{RED}{RVS}1 {OFF} 
{BLK} - LETTURA DATI" 

5100 PRINTW$(7)TAB(3)"{RED}{RVS}2{OFF} 
{BLK} - ESECUZIONE SIMULAZIONE" 

5105 PRINTW$ (■?) TAB ( 3) " { RED } { RVS} 0 { OFF } 
{BLK} - FINE":GOSUB5400 
5110 GETM$: IFM$ = ""ORVAL(M$)< OORVAL(M$)>2T 
HEN5110 

5120 M=VAL(M$)+1:IFF8=OANDM<>2THENGOSUB54 
30:GOT05110 

5130 ONMGOSUB51 50,51 60,5300:IFF9-1THENRET 
URN 

5140 GOTO5080 
5150 F9 = l .-RETURN 

5160 F8=lSPRINT"{CLR}"TAB(14)"{RED}LETTUR 
A DATI{BLK}" 

5170 GOSUB5240:IFND$="N"THEN5190 
5175 IFND$ = "V"THENGOSUB60000 SGOT05160 
5180 NF$="@0:"+NF$+",S,R":OPENl,8,0,NF$:G 
OTO5200 

5190 PRINTTAB(3);sOPENl,1,0,NFS 
5200 INPUT#1,Q:INPUT#1,NI:INPUT#1,A:INPUT 
#1,B:FORI=lTOA:FORJ=0TO4 
5210 INPUT#1,EL$(I,J) :NEXT:FORJ=0TO23:INP 
UT#1,EL(I,J):NEXT:NEXT 
5220 FORI = 1TOB:FORJ = 0TO3: INPUT# 1 ,TE$(I,J) 

:NEXT:FORJ=0TO7:INPUT#1,TE(I,J)sNEXT 

5230 NEXT:GOSUB60260 sCLOSEl : IFSPO0THEN51 
60 

5235 RETURN 

5240 PRINTW$(5)TAB(3)"{RVS}{RED}N{OFF} 
{BLK} - DATI REGISTRATI SU NASTRO" 
5250 PRINTW$(7)TAB(3)"{RVS}{RED}D{OFF} 
{BLK} - DATI REGISTRATI SU DISCO" 
5255 PRINTW8 (IjTABP) "{RVS} {RED}V{OFF} 
{BLK} - VISUALIZZAZIONE DIRECTORY" 
5260 GETND?:IFND$=""THEN5260 
5270 IFND$<>"N"ANDND$<>"D"ANDND$<>"V'THEN 
5260 

5275 IFND$ = " V'THENRETURN 

5280 PRINTW$(12)TAB(3)"NOME DISTINTIVO DE 
L FILE DATI{RED}" 

5290 PRINTTAB(3); :INPUTNFS: RETURN 
5300 GOSUB5450SGOSUB70:RETURN 
5310 EL(VO(I),11)=1:SV=99999999:VA=999999 
99 :IFI = 1THEN5330 

5320 SV=EL(VO(I),3)-EL(VO(1-1),3) 

5330 IFI=NITHEN5350 

5340 VA=EL(VO(1+1),3)-EL(VO(I),3) 

5350 DD=SV:IFVA<=SVTHENDD=VA 

5360 DD=(DD/60000)-(GD-G)/10:EL(VO(I),2)= 

105-DD/5 

5370 CR=EL(VO(I),8)-(GD-G)*LP/EL(VO(I),9) 

+ 7 *(100-EL(VO(I) ,2))/I0 + 1 
5380 IFCR>0THENRETURN 

5390 EL(VO(I),2)=EL(VO(I),2)+(CR-1.5+RND( 
PEEK(112)))*10/7 sRETURN 
54 00 POKE54296,VO:POKE54275, 1 5:POKE54274, 
15:POKE54277,0:POKE54278,240 
5410 V=54276:HF=54273:LF=HF-1:POKEV,17:PO 


KEHF,60 :FORT=1TOl5 :POKELF,2*T:NEXT 
5420 POKE54276,0:POKE54296,0:POKEHF,0:POK 
ELF,0:RETURN 

5430 PRINTWS(23)TAB(3)"{RED}NON ESISTONO 
DATI SU CUI OPERARE" 

5440 GOSUB5400:GOSUBl920:GOSUBl140 sRETURN 
5450 REM INIZIALIZZAZIONE 

5460 FORI=1TOA:MP=EL(I,19):MS=EL(I,20):MM 
=EL(1,21) 

5470 EL(I,1)=(((MP*60)+MS)*1000+MM):EL(I, 
3)=0:EL(1,10)=9E9 

5480 EL(1,18)=EL(1,22):EL(I,7)=EL(I,23) 
5490 EL(I,5)=0:EL(1,6)=0:EL(I,11)=0:EL(I, 
24)=0:EL$(I,4)="":NEXT:RETURN 
5500 DATAI 44,5,28, 1 59, 1 56,30,31,1 58,129,1 
49,150,151,152,153,154,152,9,6,4,3,2 
,1 

5510 DATA"ROTTURA MOTORE","CEDIMENTO SOSP 
ENSIONE","USCITA DI PISTA" 

5520 DATA"ROTTURA DELLO STERZO","RADIATOR 
E FORATO","UN INCIDENTE" 

5530 DATA"DISTACCO ALETTONE","SCARSA MANE 
GGEVOLEZZA","PNEUMATICO DECHAPPATO" 
5540 DATA"ROTTURA DEL CAMBIO","CEDIMENTO 
ACCENSIONE","ESAURIMENTO CARBURANTE" 

5550 DATA"MOTORE","SOSPENSIONI","AI FRENI 
","ALLO STERZO","RAFFREDDAMENTO" 

5560 DATA"DI ADERENZA","AEREODINAMICI","M 
ANEGGEVOLEZZA" 

5570 DATA"CAUSA FORATURA","AL CAMBIO","EL 
ETTRICI","ALIMENTAZIONE" 

5580 DATA45000,75000,75000,75000,75000,10 
000,12500,12500,14500,22500,22500 
5590 DATA22500,450,250,450,250,450,200,20 
0,450,450,450,450,450 
5600 DATA"[<A>}{ 8 *}[<S>)","-{ 8 SPAZI} 
-","[<Q>1{ 8 *T[<W>)","-T 8 SPAZI}- 
[<Q>H 8 *T[<W>]" 

5610 DATA"-{ 8 SPAZI}[<Q>1[<S>]" 

5620 DATA"I<Q>){ 8 *}[<W>]-","- 

{ 8 SPAZI}[<Q>][<X>)[<Q>]{ 8 *} 
[<W>]","-{ 8 SPAZI}-","[<Q>]{ 8 *} 
[<W>]" 

5630 DATA"-{ 8 SPAZI}-","[<Z>}{ 8 *}[<X>] 

n 

5640 REM DATA ROUTINE IN LINGUAGGIO MACCH 
INA PER LO SCROLLING 

5650 DATAI 69,39, 1 33,78, 169,200,1 33, 79,169 
,39,133,82,169,216,133,83,169,255,13 
3 

5660 DATA80,169, 199, 1 33,81,1 69,255,133,87 
,169,215,133,88,162,24,160,40,177,78 

5670 DATAI 45,80,177,82,1 45,87,1 36,208,245 
,24,165,78,105,40,133,78,169,0,101 
5680 DATA79,133,79,24,165,80,105,40,133,8 
0,169,0,101,81,133,81,24,165,82,105 
5690 DATA40, 133,82,169,0,101 ,83,133,83,24 
,165,87,105,40,133,87,169,0,101,88 
5700 DATAI 33,88,202,48,3,208,1 86,96 
5710 FORIW=0TOl5:READNC(IW):NEXT 
5720 FORIW=1T06:READPU(IW):NEXT 
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"Slow", consentono di influire sul ritmo 
di gara che il pilota terrà nella sezione di 
corsa immediatamente successiva, pro¬ 
vocando, rispettivamente, un aumento 
del ritmo ed un suo rallentamento, la cui 
entità (espressa in termini percentuali) 
verrà esplicitamente acquisita dal cal¬ 
colatore tramite un'istruzione Input (sa¬ 
rà quindi necessario premere Return, 
dopo aver battuto la cifra voluta). Il cal¬ 
colatore non esercita nessun controllo 
sulla cifra introdotta (può quindi essere 
anche un valore decimale); attenzione, 
perciò, a non commettere errori. 

L'ultima voce del menu è contraddi¬ 
stinta dalla lettera “C”, per “Cambio 
gomme” e consente di segnalare al 
proprio pilota di rientrare ai box per 
sostituire gli pneumatici. Il calcolatore vi 
chiederà di predisporre le gomme per la 
sostituzione, scegliendole tra i tre tipi 
disponibili (“slick/teneri" -0-, “slick-du- 
ri” -1- e “rain” -2-). Un rapido cenno al 
modo in cui lo stato degli pneumatici 
viene segnalato al giocatore. Indipen¬ 
dentemente dal tipo, un treno di gomme 
in condizioni ideali viene assunto ugua¬ 
le a cento ed il suo successivo deterio¬ 
ramento viene espresso in termini per¬ 
centuali. Il consumo sarà più rapido per 
pneumatici di tipo più “tenero", ma, da¬ 
to che le prestazioni del pneumatico 
sono tanto migliori quanto più alta è la 
sua temperatura di esercizio, il loro ren¬ 
dimento sarà, proporzionalmente, mi¬ 
gliore. Il programma prosegue quindi 


come nel caso precedentemente esami¬ 
nato. Lo svolgimento è lo stesso per le 
sezioni seguenti (tutte della stessa lun¬ 
ghezza, eccettuato, come visto, l’ultima) 
fino al termine della gara che avviene al 
completamento del numero di giri previ¬ 
sti o al raggiungimento del limite delle 
due ore (tale limite viene, in genere, su¬ 
perato solo per le gare su pista bagna¬ 
ta). L'unica eccezione riguarda la sezio¬ 
ne di acquisizione delle decisioni di e- 
ventuali giocatori che, dopo il comple¬ 
tamento dell'ultima sezione di gara, vie-, 
ne. naturalmente, tralasciata. Analoga¬ 
mente vengono esclusi dal controllo 
quei conduttori che si siano ritirati nel 
corso della manifestazione. A gara con¬ 
clusa il calcolatore ripropone la classifi¬ 
ca finale e dà modo all'utente di esami¬ 
narla, comunicando l'eventuale so¬ 
spensione della corsa a causa del rag¬ 
giungimento del limite di tempo citato. 
Una volta che abbiate segnalato di pas¬ 
sare alla pagina successiva, comparirà 
sullo schermo la scritta: 

STO RIORDINANDO LA CLASSIFICA 
DEL CAMPIONATO 

Il calcolatore provvederà quindi ad at¬ 
tribuire i punti spettanti ai primi sei clas¬ 
sificati di un Gran Premio di Formula 
uno, in base alla classifica finale otte¬ 
nuta dalla simulazione e provvederà, di 
conseguenza, a riordinare la classifica, 
includendo naturalmente, anche quei 
piloti che si siano ritirati nel corso della 


manifestazione o, addirittura, non vi ab¬ 
biano preso parte, a patto che i dati di 
quest'ultimi siano contenuti nel file-dati 
letto da periferica ed ottenuto tramite 
Tool-Kit. La classifica verrà mostrata 
nella consueta forma, come abbiamo 
già visto fare prima dell'inizio della gara. 
La sezione successiva del programma 
provvede a riordinare i migliori tempi sul 
giro fatti segnare da ciascun pilota; 
quindi li mostra (cinque conduttori per 
schermata), completi di media sul giro, 
e giro di gara in cui i tempi sono stati 
fatti segnare. L'ultima funzione del pro¬ 
gramma permette di ottenere un breve 
riassunto del comportamento di cia¬ 
scun team nell'ambito della gara appe¬ 
na disputata -saltando, naturalmente, 
quelle squadre che non avevano nessu¬ 
na vettura al via- e consentendo cosi di 
conoscere, per ciascun pilota, il giro di 
gara in cui è eventualmente stato co¬ 
stretto al ritiro, unitamente alla ragione 
che l'ha provocato, o, nel caso in cui 
abbia portato a termine la prova, la 
quantità di carburante rimasta nei ser¬ 
batoi. Speriamo che queste note siano 
state abbastanza accattivanti, da spin¬ 
gervi ad affrontare la non piccola fatica 
di copiare i listati che sono apparsi in 
questo numero di Personal Software e 
in quello che lo ha preceduto, e le non 
semplici operazioni che consentono di 
realizzare i due programmi necessari 
per ottenere la simulazione implemen¬ 
tata. Buon lavoro! ■ 


Seguito listato 2. 


5730 FORI = 1TO2:FORJ=1 TOT 2:READCA8(J,I): NE 
XT:NEXT 

5740 F0RI-lT02:F0RJ=lT0l2:READCA(J,I):NEX 
T:NEXT 

5750 DIMTB$ (13) :FORYT=lTOl3 :READTBS(YT) :N 
EXT 

5760 RETURN 

5770 FORI9 = 1TOB:Al=CN(TE(I9,6)):A2=NC(TE( 
19,7)) 

5780 KF=0:FORY=lT02:18 = 1 

5790 IFI8>ATHEN5950 

5800 IFEL(I8,4) OTE ( 19, Y) THEN5940 

5810 IFEL(18,3)-0THEN5940 

5820 IFKF=OTHENPRINT"(CLR)(RED)TEAM :"CHR 
$(Al)CHR$(A2)TES(19,1)"{RED)(OFF} 
{GIU'}":KF=1 

5830 Al=CN(EL(18,13)):A2=NC(EL(18,14)) 

5840 PRINT"{ 2 GIU'}{RED)N@"CHR$(Al)CHR$( 


A2)EL(I8,4)TAB(6)EL$(18,1)"{OFF} 
{RED}" 

5850 PRINT"{GIU’ )"CHR$<Al)CHR$(A2)EL$(18, 
2)"{OFF}{RED}" 

5860 IFEL$ (18,4)0""THEN5920 
5870 Al =CN(EL(18,13)):A2=NC(EL(18,14)):PI 
=INT(EL(18,8)):PF=EL(18,8)-PI 
5880 PI$=STR$(PI):PI$“RIGHT$(PI$,LEN(PI$) 
-1):PF$=STR$(PF) 

5890 PF$ = RIGHT$(PF$,LEN(PF$ )-2):PF=VAL(PF 
S):IFPF<0.01THENCS*PI$:G0T05910 
5900 PF$*LEFT$("."+PF$+"0000",3):C$=PI$+P 
F$ 

5910 PRINT"{GIU'}{BLK}CARBURANTE RIMASTO 
{RED}"TAB(24-LEN(PI$))C$" L.":G0T059 
40 

5920 PRINT"{GIU'}{BLK}RITIRATO NEL CORSO 
DEL"EL(I8,24)"{SIN}@ GIRO" 

5930 CA$*"CAUSA: {RED)"+EL$(18,4):GOSUB29 
00 :PRINT"{GIU'}{BLK}"CA$ 

5940 18=18+1:GOTO5790 
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5950 NEXT:IFKF=0THEN5970 

5960 GOSUB4450 

5970 NEXT: RETURN 

5980 IFEL(J,24)*.7>=GTHENGOTO650 

5990 GOTO1060 

6000 RE$(1)=RE$(1)+"{RVS} [<A>] [<R>] £<0>] 
[<T>] [<S>] [<F>] {OFF} ":RE$ (2) =RE$ ( 2) + 
" {RVS } ♦•<> {OFF } " : RE$ ( 3) =RE$(3) +"{RVS} 
[<Z>1[<E>][<C>][<@>][<X>][<V>]{OFF}" 

6010 RETURN 

7000 TG=EL(NN/25):IFTG>EL(NN, 24)ANDEL(NN, 
24)<>0THENTG=EL(NN,24)-1 

7003 IFTG>GDTHENTG=GD 

7005 PRINTTAB(5)"{BLK}OTTENUTO AL{RED}"TG 
"{SIN}@{BLK} GIRO" 

7010 ME$ =STR$(INT(((LP/SD)*3600)*1 000)/I0 
00)+" KM/H" 

7020 PRINTTAB(5)"{BLK}MEDIA:{RED}"ME$" 
{BLK}{GIU 1 }": RETURN 

7170 PRINT"{CLR}{GIU'}{RED}MIGLIOR TEMPO 
SUL GIRO IN GARA{BLK}{ 2 GIU'}":RETU 
RN 

20000 Yl=VO(J0+1):BL=EL(Yl,3)+EL(Yl,1)*CF 
*(EL+LE+DD)/I00*FG+EL(Yl,5)*FG:RETU 
RN 

30000 IFEL(VO(1),3)>7200000THENF%=2 

3001 0 RETURN 

40000 FORY=»l T02 :HG=HG+1 : IFTE ( 19, Y) =0THENG 
H=GH+1 

40040 NEXT:RETURN 

60000 PRINT"{CLR}"TAB(15)"{RED}DIRECTORY" 


:PRINTW$(3); 

6001 0 OPEN1,8,0,"$0" 

60020 GET#1,A$,B$ 

60030 GET*1,A$,B$ 

60040 GET#1,A$,B$ 

60050 C=0 

60060 IF A$ < > "" THEN C=ASC(A$) 

60070 IF B$<>"" THEN C=C+ASC(B$)*256 
60080 PRINT"{RED}"MID$(STR$(C),2);TAB(3); 
"{BLK}"; 

60090 GET#1 ,B$:IF STOO THEN 60180 
601 00 IF B$OCHR$ (34) THEN 60090 
60110 GET# 1 ,B$:IF B$OCHR$ (34) THEN PRINTB 
$ ;:GOTO60110 

60120 GET#1,B$:IF B$=CHR$(32) THEN 60120 
60130 PRINT TAB(18);:C$“"" 

60140 C$=C$+B$:GET*1,B$:IF B$<>"" THEN 6 
0140 

60150 PRINT"{RED}"LEFT$(C$,3) 

60170 IF ST=0 THEN 60030 
60180 PRINT"{BLK} BLOCKS FREE" 

60190 CLOSEl:GOSUB60260:GOSUB60230:RETURN 

60230 PRINTW$(24)TAB(3)"{RED}PREMI ' RETU 
RN' PER CONTINUARE" 

60240 IFPEEK (197)01 THEN60240 
60250 RETURN 

60260 IFND$="N"THENRETURN 

60270 INPUT*15,A$,B$,C$,D$:SP=VAL(A$):IFS 
P=0THENRETURN 

60280 PRINTW$(20)TAB(3)"{RED}"A$"{BLK}, 

{RED}"B$"{BLK},{RED}"C$"{BLK},{RED} 
"D$:GOSUB60230 tRETURN 


Collaborate, collaborate 

L a Novel di Recanati invita tutti i 
possessori di Commodore 64 a 
inviare programmi applicativi 
per esaminarli. Viene promessa 
la diffusione a quelli che presentano carat- 
tieristiche tali da essere di vasto interesse e 
di buona qualità. Per quanto riguarda i 
prodotti software già in possesso dagli u- 
tenti Novel, la società si impegna a offrire 
il cambio di programmi obsoleti con quelli 
di più recente concezione. Per l’utente in¬ 
termedio, venditori al dettaglio, la Novel 
assicura il cambio del software “invecchia¬ 
to” e l’invio di documentazione sui nuovi 
prodotti onde poter allestire vetrine e cen¬ 
tri dimostrativi o espositivi. 

Novel International S.r.l. 

Via Off affla, 8 
62019 Recanati (MC) 

Tel. 071-98147) 


Monitor di qualità 

P rinceton Graphic Systems 
(PGS) annuncia una serie di mo¬ 
nitor di notevoli prestazioni. 
Tra tutti, parliamo oggi del mo¬ 
dello MAX-12, un visore da 12” ad alta 
risoluzione con fosfori ambra. Il monitor 
riconosce se il segnale in ingresso proviene 
da una scheda a colori o monocromatica, e 
si adatta automaticamente a visualizzare 16 
toni di luminosità ambra o due livelli di 
grigio; in più la grandezza dello schermo 
utile rimane costante quando si passa da un 
modo all’altro. La risoluzione arriva a 720 
per 350 punti e lo schermo è dotato di 
superficie non riflettente. Il prezzo consi¬ 
gliato negli USA per il PGS MAX-12 è 
249 dollari. 

PGS Ine. C/O D. Corninoli 

InterQuadram 

6 jj Ajax A ve mie 

Slougb - Eng/and BERKX SL14BG 
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Battaglia 

galattica 

Un gioco di società 
che vi terrà legati al vostro Apple 

di Michele Sessa 


B attaglia galattica è un gioco 
di simulazione che si svolge in 
un'ipotetica galassia rappre¬ 
sentata da 180 settori. All’in¬ 
terno di questo scenario si muovono i 
giocatori, ognuno alla guida della pro¬ 
pria astronave, con la possibilità di sce¬ 
gliere una propria tecnica di gioco gra¬ 
zie alle funzioni disponibili dal pannello 
comandi. 

Il gioco 

Le astronavi consumano parte della 
loro energia per il mantenimento delle 
funzioni vitali, oltre che durante la fase 
di combattimento vera e propria. Quindi 
lo scopo del gioco è praticamente quel¬ 
lo di restare al comando della propria 
astronave il più a lungo possibile, prima 
che questa esploda per un'inevitabile 
perdita di energia, o perché distrutta dai 
colpi di altre astronavi. 

Cosi, durante tutta la partita, i giocatori 
vengono eliminati uno alla volta, fino 
alla proclamazione del vincitore, che è 
appunto colui il quale ha meglio ammi¬ 
nistrato il gioco riuscendo a conservare 
energia per la propria astronave. Ognu¬ 
no può adottare la politica che ritiene 
migliore e quindi tentare, per esempio, 
una tecnica di sopravvivenza, cercando 
di stare nascosto in qualche angolo 
della galassia regolando tutte le funzio¬ 
ni al minimo. Al contrario è possibile 
una tecnica più d'assalto, privilegiando 
la caccia all’avversario alla ricerca dello 
scontro a fuoco, che permetta l'elimina¬ 
zione del nemico e l'acquisizione del 
bonus di energia. Oppure ancora si può 
attuare una tecnica da guerriglia, cer¬ 
cando di attirare le altre astronavi in 
trappole. All’inizio del gioco vengono 
chiesti il numero dei giocatori ed il loro 
nome; da questo momento in poi essi 
dovranno alternarsi al computer (nel¬ 
l'ordine in cui vengono chiamati), per 
inserire i dati relativi alla propria astro¬ 
nave, i quali non devono essere visti 
dagli altri. Il primo dato da fornire è il 
nome dell’astronave; con questo verrà 
sempre identificato il giocatore nelle co¬ 
municazioni con i suoi avversari, in mo¬ 
do che non possa venire riconosciuto. 
Viene quindi richiesto il comando di au¬ 
todistruzione: qualunque sequenza di 
caratteri va bene, ma è meglio sceglier¬ 
ne una che sia facilmente memorizzabi- 


le, poiché il computer della vostra astro¬ 
nave, per motivi di sicurezza, non la rive¬ 
lerà a nessuno, voi compresi! 

Terminata la veloce tase di inserimen¬ 
to dati, il video del computer fornisce il 
nome del giocatore che deve per primo 
prendere possesso della nave. La se¬ 
quenza di gioco è generata casualmen¬ 
te a ogni giro completo in modo da non 
favorireo penalizzare nessuno: è perciò 
possibile che un giocatore sia chiamato 
due volte di fila qualora fosse l'ultimo di 
un giro e il primo di quello successivo. 
Vediamo ora nel dettaglio la situazione 
nella sala comandi dell'astronave; il 
grosso schermo che occupa la metà 
superiore del video è la mappa della 
galassia, divisa nei 180 settori che la 
compongono. Ogni settore viene identi¬ 
ficato da una lettera (A-R) in ascissa, e 
da un numero (0-9) in ordinata. È da 
notare che la galassia è delimitata dal 
suo stesso perimetro, e quindi per pas¬ 
sare per esempio dal settore A7 al setto¬ 
re R7, bisogna attraversarla tutta; peral¬ 
tro, non essendoci limiti nella portata 
della navigazione, ciò influisce solo sul¬ 
l'effetto del radar. La posizione dell'a¬ 
stronave viene identificata sulla mappa 
dal simbolo "#", e da questo si estende 
l'effetto dei radar, che viene mostrato in 
inverso; se qualche astronave si trova 
nella sua portata viene indicata con 

La fascia immediatamente sotto la 
mappa è riservata alle comunicazioni in 
arrivo e ai comandi da dare. Nella metà 
inferiore sinistra dello schermo si trova 
lo specchietto che informa sullo stato 
dell'astronave: la condizione in cui si 


trova (verde = tutto bene, gialla = po¬ 
ca energia, rossa = energia scarsa o 
presenza di un’altra astronave nello 
stesso settore), il settore occupato, la 
data astrale, il livello di regolazione de¬ 
gli schermi, l'energia ancora disponibile 
e infine il numero di torpedini ancora a 
disposizione. A fianco del quadro con¬ 
dizione, in basso a destra, si trovano i 
comandi disponibili, ognuno richiama¬ 
bile tramite un numero; questi sono: 

1 - Navigazione: permette di spostare 
l'astronave in un qualunque settore del¬ 
la galassia, a meno che in questo non vi 
siano già due astronavi, nel caso si ot¬ 
tiene il messaggio di “settore inaccessi¬ 
bile”. Lo spostamento viene realizzato 
in una sola mossa, qualunque sia la 
distanza da coprire; il consumo dato 
dai motori è di 12 unità di energia per 
ogni settore attraversato. Quando si ef¬ 
fettua uno spostamento si passa auto¬ 
maticamente il turno; è quindi consiglia¬ 
bile provvedere prima a tutte le altre 
regolazioni come per esempio schermi 
e radar; 

2 - Regolazione schermi: gli schermi a 
disposizione della vostra astronave ser¬ 
vono a deflettere gran parte del colpo 
che vi viene sparato; è quindi buona 
norma averli sempre inseriti per evitare 
brutte sorprese, e regolarli al massimo 
nel momento dello scontro; ma atten¬ 
zione, gli schermi stessi vi costano in 
energia e il consumo è tanto maggiore 
quanto più alta è la loro regolazione. Il 
valore degli schermi varia dallo 0 al 
75%. Se si inseriscono valori eccedenti 
vengono automaticamente convertiti ai 
limiti consentiti. Come esempio, il con- 








Listato 1 - Il programma Battaglia galattica 


10 

REM 

* * # -X * X X * .x ****** ******** 

13 

REM 

X 


* 

16 

REM 

X 

BATTAGLIA GALATTICA 

* 

21 

REM 

X 


* 

24 

REM 

-X- 

V 2. 4 

* 

27 

REM 

•X- 


* 

30 

REM 

■X 


* 

33 

REM 

* 


* 

36 

REM 

* 

DI MICHELE 'ESSA 

* 

39 

REM 

* 


X 

42 

REM 

XXX X-S X X -X X X X X XXX X X X X X* 

45 

REM 





50 Tt(2) = "STA 7 I CNF DI RI FORNI ME 
NT0 r :T*<3> - "TEMPESTA MAGNE 
T1CA": UT = CHR$ .13) 

55 F't = "NAVIGAIIOMESCMERMI LA 
SER TORPEDINI COMPUTER 

fi 

60 G* - " 

II 

65 HT «"BATTAGLIA G 
ALATTICA" 

70 .7$ = " MESSAGGIO PER TUTTI 
I GIOCATORI 

75 L.T = "PREMERE UN TASTO" 

80 A* « " A B C D E F G M I J K 
L hi N Q P P R" 

85 DI : 

( Il 

90 DT - »1-NAVIGAZ10NE2-SCHHRMI 
3-RAPP DANNI 4-LASER 
5-TORFEDJ NI 6 COMPUTER 7- 
DlSTRUZIONE' 

95 ET = " «COMPUTER* 1 TRAIETTO.R 
IA2-RADAR 3 RADIO 

4-CORTINA 5-RITORNO 

II 

100 TEXT : HOME 

105 INVERSE : PRINT GT ; Gl; HT; Li* ; 

GT: NORMAL : VTAD 7: NTAB 6: 

PRINT "GIOCO DI SOCIETÀ' ^E 
R APPLE IC": POR fl - 1 TC 12 
00: NEXT A: POKE 34,10: PRINT 

110 VfAB 10: HTAB 7: PRINT "QL'AN 

TI GIOCATORI ? (2 - 9) GET 

INT: PRINT INT:NG « VAL (IN 
*): IF NG < 2 THEN 110 

115 POKE 34,11: PRINT :GG = NG: DIM 
G(180,1),P(NG,6),D<NG,7),COM 
(21,2), COMI <21) 

120 FOR A = 1 TO NG:P(A,1) - 800 
0: P (A, 2) = 5: P (A,3) =13 + 2 
* NG: P < A, 4 ) = 1 


125 PRINT : PRINT "NOME DEL GlOC 
ATORE ; A;: INPUT " ";P'T<A> 

: NEXT A 

170 HOME : PRINT " DA PUESTO MOM 

LNio i giocatori si devono s 

UCCEDERE, UNO ALLA VOLTA, NE 
LL' ORDINE IN CUI VENGONO CH 
IAMATI, PER INSERIRE I DATI 
RELATIVI ALLE PROPRIE ASTRON 
AVI. " 

135 FRI NT " QUESTO PER GARANTIRE 
L' ANONIMATO E PER NON FARE 
CONOSCERE I PROPRI MOVIMENT 
I AGLI ALTRI GIOCATORI.": VTAB 



23: HTAB 

13: PRINT LI 


140 

RA « RA + 

1 : X = PEEK 

( - 163 


84) : POKF 

- 16368,0: 

IF X > 


127 THEN 

150 


145 

GOTO 140 



150 

FOR A = 1 

TO NG: TEXT 

: HOME 


: INVERSE 

: HTAB 21 - 

< LEN 


(PNA: ) / 2): PRINT PT(A>: NORMAL 
: POKE -34,5: POKE 35,20: HOME 

155 H I AB 10: PRINT "NOME DELL *AS 

TRONAVE": PRINT : HTAB 14: INPUT 
"";NA$<A): TOR B = A - 1 TO 
0 CTEP 1: IF NASCA) = NAT 
(B OR LEM (NA$ (A ) 12 THEN 

PRINT : HTAB 6: PRINT "*NGN 
r UOI USARE QUESTO NOME*": PRINT 
: GOTO 155 

163 NEXT 0: PRINT : HTAB 7.- PRINT 
"COMANDO DI AUTODISTRUZIONE" 

: PRINT : HTAB 14: INPUT 

SDÌ (A): V T AE 23: HTAB 13: PRINT 

LI;: GFT INI: NEXT A 

165 TEXT : HOME : FOR A = 1 TO N 
G 

170 8 - INT (1E0 * RHD (RA) 1 
): F G(0,l) C >0 THEN 170 

3 75 G <0, 1 « 1 : P (A, 0) = Q: NEXT A 

180 SD = INT (2000 * RND (RA) + 

800) 

200 REM 

201 REM 

232 REM «CICLO PRINCIPALE= 

203 REM 

204 REM 

210 SD = SD + 1 

220 GQSL1D 3333 

23F GOSUB 2705: GOSUB 2805 

240 FOR PI « J TG NG: P = B(PI) 

250 IF P(P,1) < I THEN 440 

260 A C <3 i (F' (P,2> / 7)) ~ 2) * 
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APPLE 


sumo è di circa 36 unità di energia per 
regolare gli schermi al 20%, di circa 100 
per il 50% e 169 per il 70%; 

3 - Rapporto danni: con questa opzione 
viene cancellata la mappa nella parte 
superiore dello schermo e compaiono i 
nomi dei vari organi danneggiabili del¬ 
l'astronave; se nessuno di essi ha subito 
danni si avrà il messaggio di OK, altri¬ 
menti l'indicazione dei periodi astrali 
(corrispondenti ai turni di gioco) neces¬ 
sari per la riparazione. In questa stessa 
tabella compaiono le informazioni rela¬ 
tive allo stato della cortina e delle torpe¬ 
dini, che verranno spiegati più avanti. 
La tabella del rapporto danni rimane 
visibile per alcuni secondi, poi il suo 
posto viene ripreso dalla mappa della 
galassia. Il controllo del rapporto danni 
costa 15 unità d'energia; 

4 - Laser: i laser sono una delle due armi 
di cui sono fornite le astronavi. 

Sono armi convenienti in quanto emet¬ 
tono forza doppia rispetto a quella che 
viene richiesta per sparare. Se alla do¬ 
manda "Quanta energia?" si risponde 
500, il raggio emesso avrà forza 1.000 
mentre il consumo che viene segnalato 
nella tabella in basso a sinistra sarà di 


500; naturalmente non è possibile usare 
più energia di quella che si ha a disposi¬ 
zione. I laser sono sempre pronti per 
essere utilizzati. Sia i laser che le torpe¬ 
dini hanno una gittata limitata ad un 
settore; è perciò necessario trovarsi nel¬ 
lo stesso settore occupato dal bersaglio 
per poterlo colpire; 

5 - Torpedini: il funzionamento delle tor¬ 
pedini è totalmente diverso da quello 
dei laser; innanzitutto sono disponibili 
in quantità limitata secondo quanto 
mostra l'ultima riga della tabella condi¬ 
zione, hanno una potenza fissa di 900 
unità di energia ciascuna, e inoltre non 
sono costantemente a disposizione. Per 
poter utilizzare le torpedini è necessario 
innescarle preventivamente e questa o- 
perazione richiede 2 periodi astrali, du¬ 
rante i quali non sarà possibile usarle; 
ma una volta accese, tutte le torpedini 
saranno utilizzabili. È necessario consi¬ 
derare che, per ogni turno in cui le tor¬ 
pedini rimangono accese, si ha un con¬ 
sumo di 80 unità di energia. Sta quindi 
al giocatore la scelta se tenere le torpe¬ 
dini accese, consumando energia, o se 
accenderle solo nel momento di neces¬ 
sità, limitandosi eventualmente a utiliz¬ 


zare i soli laser per i primi colpi. È co¬ 
munque possibile decidere di spegnere 
le torpedini per contenere i consumi. 
Ogni volta che si fa fuoco con le torpe¬ 
dini se ne lancia una. È sempre possibi¬ 
le, sia con le torpedini che con i laser, 
fallire il colpo indipendentemente dagli 
schermi difensivi dell'altra astronave. I- 
noltre, durante il proprio turno è possi¬ 
bile sparare non più di due volte combi¬ 
nando a piacere le due armi, tenendo 
comunque conto che nel momento in 
cui si decide di muoversi (comando na¬ 
vigazione), si termina comunque la pro¬ 
pria mossa. Se si spara mentre nel set¬ 
tore occupato non ci sono altre astro¬ 
navi, il colpo viene perso. Nella tabella 
del rapporto danni viene fornito anche 

10 stato delle torpedini (spente, accese o 
pronte); 

7 - Distruzione: con questo comando si 
controlla l'autodistruzione della propria 
astronave; per farlo è sufficiente fornire 

11 codice che era stato richiesto all'inizio 
del gioco. I casi in cui può venire usato 
sono due: quando ci si trova in una 
situazione particolarmente difficile e si 
preferisce abbandonare la lotta, o 
quando si vuole semplicemente smette- 
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( P ( F', 2 ) > 0) t •:<P(P,4> + 2) 

A 2) t (70 * <P (P, 5> = 1> ) + 

(30 * (P(P,6) < > lì ) :P(P,1 

) = P(P,1) - I NT (A) 

270 HOME : VTAB 10: HTAD 21 - ( LEM 
<P*<P)> / 2): INVERSE : PRINT 
P4(P,: NORMAL :P « P(P,0>: GOSUB 
505: VTAB 23: NT AB 15: PRINT 
"PREMERE 

280 GET IN*; IF INI < > THEN 

280 

290 HOME : GOSUB 705: GOSUB 905: 

GOSUB 805: XI = X:Y1 -- V: GOSUB 
605 

300 PONE 34,11: POPE 35,14: HOME 

310 IF CO = 0 THrN 340 
320 FOR A = 1 TO CO: HOME : PRINT 
: HTAB 4: PRINT "COMI IN CCAZ IO 
NE SALATI ICA IN ARRIVO": HTAB 
12: PRINT L.*; : GET IN* 


330 

HOME : 

Cf «n 

COMI(A) 

: GOSUB 

10 


05: NEXT A 




340 

GOSUB 

2905 

: GOSUB 

005 


350 

IF d ;r 

>,0> 

> 0 THEN 

GOS'.JD 

31 


05: GOSUB 805 


360 GOSUB 2305: GOSUB 2405: GOSUB 
005: GOSUB 3005 

370 HOME : VTAB 13: HTAB 34: PRINT 
"CESC 3": VTAB 13: PRINT "COM 
ANDO - GET IN*:IN = VAL 

(IN*) 

380 IF IN* = CHR* (27) THEN 430 

390 IF IN < 1 OR IN >7 THEN 370 

400 ON IN GOTO 1105,1205,1305,14 
05,1505,1605,1705 

410 IF ST > 1 THEN 430 

420 GOTO 370 

430 ST = 0: POKE 34,0: POKE 35,24 
: FOR A = 1 TO 1200: NEXT A 

440 NEXT PI: GOTO 210 

500 REM 

501 REM 

502 REM ^COORDINATE- 

503 REM 

504 REM 

505 Y -= INT <Q / 18) 

507 X * O - (Y * IO) 

510 IF X = 0 THEN > = 13:Y Y 
1 

515 RETURN 

530 REM 
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531 

REM 


532 

REM “SETTORE^ 


533 

F(EM 


534 

REM 


535 

Q = X + (Y * 18) 


540 

RETURN 


560 

REM 


561 

REM 


562 

REM =DISTANZA= 


563 

REM 


564 

REM 


565 

D = INT ( SOR ((XI 

- X2> A 2 


+ (Y1 - Y2) ~ 2) > 

• 

570 

RETURN 


600 

REM 


60 3 

REM 


602 

REM =RADAR= 


603 

REM 


604 

REM 


605 

IF P(P,0) =0 THEN 

RETURN 

610 

Z = P(P,4):CA = (Yl 

- Z) * (Y 


1 - Z > 0) 


611 

CB = (Yl + Z) * (Yl 

+ Z < 10) 


:CB = CB + 9 * (CB 

= 0) 

612 

CS = (XI - Z) * (XI 

- Z > 0): 


CS = CS + 1 * (CS = 

0) 

613 

CD = (XI + Z) * (XI 

+ Z < 19) 


: CD = CD i 1B » (CD 

= 0) 

615 

FOR X2 = CS TO CD: 

FOR Y2 = 


CA TO CB: GOSUB 565 
Z THEN 650 

: IF D > 

620 

X = X2:Y = Y2: GOSUB 

535: IF 


G(Q,1) =0 THEN 01 
645 

* " ": GOTO 

625 

FOR A = 1 TO NG 


630 

IF P(A,0) < > Q THEN 643 

635 

IF P(A.5) = 1 THEN 

A = IIG: OUrU i>45 

01 = " ": 

640 

NEXT A:01 = 


645 

VTAD Y2 t- 2: l-ITAB (X2 * 2) + 


1: INVERSE : PRINT 

01 

650 

NEXT Y2: NEXT X2: VTAB Yl + 


2: HTAB (XI * 2> f 
: PRINT 

1 : NORMAL 

655 

RETURN 


700 

REM 


701 

REM 


702 

REM “MAPPA- 


703 

REM 


704 

REM 


705 

POME : FRINT AI 


710 

FOR A 0 TO 9: PRINT A;B!;A 


: NEXT A 


715 

RETURN 


000 

REM 


801 

REM 




802 REM “CONDIZIONE- 

803 FEM 

004 REM 

805 POKE 34,0: POKE 35,24:0 « P( 
P,0): G0SU3 505:P(P,i> = INT 
(F (r,l> : VT AD 17: HTAB 2: 
INVERSE : PRINT NAKP): NORMAL 
: IN# = "VE 
RDE " 

810 TF P(P,1> < .2003 TI-ÌEN INVERSE 
: IN* » "GIALLA" 

81fi IF 6(0,1) > 1 OR P(P,1) < 10 
00 TMEN FLASH : INI = "ROSSA 

II 

823 HTAB 1: PRINT "CONDIZIONE 
: PRINT INI: NORMAL 

825 PRIMI "SETTORE. 

IITAB IV: PRINT CURI (64 
X ) ; Y 

830 PRINT "DATA ASTRALE. 

IITAB 19: PRINT SD 

835 PRJNT "SCHERMI 7.. 

;: IITAB 19: PRIMT P(P,2) 

840 PRINT "ENERGIA RIMANENTE. 

: HTAB 19: PRINT P(P,1) 

845 PRINT "TORPEDINI.. 

;; IITAB 19: PRIMT PCP,3) 


350 

PULE 34,11: PODI 35,14: 

IF P 


(P,l) < 1 THEN POP : GOTO 2 
605 

055 

RETURN 


900 

REM 


901 

REM 


902 

REM ‘■.-COMANDI» 


903 

REM 


904 

REM 


905 

FOLE 34,0: POI.E 35,24: 
17 

VTAB 

710 

FOR A - 1 TO 7: HTAB 26 

: PRINT 


•MIDI (DI, 1 )• 13 * (A 

3): NEXT A 

D ,1 

915 

POKE 34,11: POKE 35,14: 

RETURN 

1000 

REM 


1001 

REM 


1002 

REM =PRINTINC ROUTINE^ 


1003 

REM 


1004 

REM 


1005 

FOR L = 1 TO LEN (CI) 

-t 40 


1010 M - 1: IF l. > 40 THEN M - L. 

39 

1015 N = L: IF L ' >40 THEN N = 

39 

1020 II -• 10 L: IT II < 1 THEN H - 
1 

1025 CI = CI + " ": NI = MIDI (CI 
,M,N) 

1030 VTAD 13: IITAB H: PRINT NI 
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re di giocare. Se un altro giocatore è 
nello stesso settore occupato dall’a¬ 
stronave che si autodistrugge, subirà 
dei danni causati dall’emissione di e- 
nergia; quindi questo comando può es¬ 
sere considerato alla stregua di un'ar¬ 
ma con la quale si cerca di trascinare 
con sé il proprio assalitore; 

6 - Computer: premendo il tasto "6" si 
accede al piccolo computer inserito nel¬ 
l’astronave e che presenta una breve 
lista di ulteriori comandi: 

1 - Traiettoria: fornendo le coordinate 
del settore che si desidera raggiungere, 
il computer comunica la distanza da 
quello occupato attualmente e l'energia 
richiesta per lo spostamento. Il consu¬ 
mo del computer per questo uso è di 10 
unità di energia; 

2 - Radar: con questo comando si rego¬ 
la l'estensione dei radar, ovverosia i set¬ 
tori mostrati in inverso nella mappa: 
cioè quelli che, a partire dalla propria 
astronave, distano da essa non più del 
valore a cui si è fissato il radar. L’esten¬ 
sione varia da 1 a 9 e, come per la 
regolazione degli schermi, è progressi¬ 
vamente più costosa in energia; infatti 
con estensione uguale a uno si copro¬ 
no 9 settori, con estensione due si arriva 


a 25 e cosi via; 

3 - Radio: delle comunicazioni galatti¬ 
che si parla più avanti; per ora basta 
dire che la radio serve per inserire delle 
false comunicazioni allo scopo di in¬ 
gannare gli altri giocatori. Per fare ciò 
basta indicare il settore al quale il falso 
messaggio deve fare riferimento e quin¬ 
di specificare l’oggetto della comunica¬ 
zione. L'operazione è molto semplice, 
perché le istruzioni vengono fornite dal 
computer stesso mentre si procede. Per 
ogni messaggio radio che viene creato 
si spendono 30 unità di energia; 

4 - Cortina: la cortina è uno schermo 
protettivo contro l’effetto del radar e si 
estende per il settore occupato. La con¬ 
seguenza di questo è che, se un gioca¬ 
tore aumenta la portata del suo radar 
fino al settore occupato dalla vostra a- 
stronave (che ha la cortina attivata), la 
vostra presenza non viene rilevata. Se 
nel vostro stesso settoresi trova un'altra 
astronave che invece non ha attivato la 
cortina, anch’essa verrà nascosta. Il 
consumo di energia che comporta l'atti¬ 
vazione della cortina è di 70 unità per 
giro. La condizione in cui si trova la 
cortina (accesa / spenta) viene indicata 
nel rapporto danni; 


5 - Ritorno: premendo il tasto 5 si esce 
dall’uso computer e si torna sui coman¬ 
di normali. Tutte le scritte che compaio¬ 
no durante l’uso del computer, sono 
precedute da un asterisco per essere 
più facilmente riconoscibili. 

Il computer è uno degli strumenti della 
vostra astronave che può essere dan¬ 
neggiato, se colpito da astronavi avver¬ 
sarie; in questo caso non sarà possibile 
accedere alle sue funzioni, che rimar¬ 
ranno bloccate sui valori in cui si trova¬ 
vano al momento del danneggiamento, 
fino a che non verrà effettuata la ripara¬ 
zione. Se sono gli schermi a venire dan¬ 
neggiati, un sistema di controllo li rego¬ 
la automaticamente al 5%. 

Le riparazioni degli strumenti colpiti 
richiedono generalmente il tempo che 
viene indicato nel rapporto danni, ma 
esiste la possibilità che, in maniera ca¬ 
suale, questi tempi vengano accorciati; 
nel qual caso ne viene data pronta co¬ 
municazione. Le funzioni che richiedo¬ 
no un consumo di energia immediato 
(come per esempio il rapporto danni o il 
calcolo della traiettoria), possono veni¬ 
re inibite se l’energia a disposizione è 
talmente poca da non raggiungere il 
valore necessario. Se, per esempio, si 
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1035 FOR B = 1 TR 15: NEXT B 

1040 NEXT L: RETURN 

1100 REM 

1101 REM 

1102 REM =NAVIGAZ 1ONC~ 

1103 REM 

1104 REM 

1105 HOME : PRINT : IT D(P,1) > 

SD THEN PRINT "MOTORI IN RI 
PARAZIONE.PRONTI IN": PRINT 
"DATA ASTRALE "; STR* (D(P,1 
)): FOR A = 1 TO 1200: NEXT 
A: GOTO 410 

1110 FRINÌ "NAVIGAZIONE:QUALE SE 
TTORE ? "; 

1115 GET IN*: IT IN* = M* THEN GOTO 
410 

1120 X2 = ASC (IN*) - 64: IF X2 < 

1 OR X2 > IO THEN HOME : PRINT 
: GOIO 1110 

1125 PRINT IN*;"-";: GET IN*: IT 
IN* « M* THEN GOTO 410 

1130 Y2 = ASC (IN*) 48j PRINT 

IN*: IF Y2 < 0 OR Y2 > 9 THEN 
HOME : PRINT : GOTO 1110 


1Ì35 Q - P (P ,0): GOSUB 505: XI = X 
:Y1 = Y: GOSUB 565: IF D * 1 
2 > P(P,1) THEN PRINT "ENEL. 
GIÀ INSUFFICIENTE": FOR D » 

1 TO 1200: NEXT D: GOTO 410 

1140 X - X2.:Y = Y2: GOSUB 535: IF 
G(Q,i) =2 THEN FRI NT "SETT 
ORE INACCFSS IBI LE " : FOR D =» 

1 TO 1200: NEX" 1 D: GOTO 410 

1145 Q = P(P,0) :P<P,1> = r<P,l> 

D * 12: GOSLIL 805 

1150 G(O,1) = G <□ , 1 ) - 1 : X = X2:Y 
= Y2: GOSUB 535: P(P,0) = Q 

1155 6(Q,1 ) = G (Q, 1) + 1: 3T » ST + 
2: GOTO 410 

1200 REM • 

1201 REM 

1202 REM ^REGOLAZIONE SCHERMI - 

1203 REM 

1204 REM 

1205 HOME : PRIN’' : IF P(P,2) > 

SD THEN PRINT "SCHERMI DANN 
EGGTATI": RRIN'i "PRONTI IN D 
ATA ASTRALE "; STR* <D(P,2)) 

: FOR A - 1 TO 1200: NEXT A: 

GOTO 410 
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1210 INPUT "REGOLAZIONE SCHERMI 
7. "sIN*:IN » INI ( VAL (IN* 

) ) 

1215 IF IN < 0 THEN IN = 0 
1220 IF IN > 75 THEN IN = 75 
1225 PCP,2) = IN: GOSUB G05: GOTO 
4 10 

1300 REM 

1301 REM 

130? REM =RAPPORTO DANNI 
130.3 REM 

1304 REM 

1305 HOME : IF P(P,1> < 16 THEN 
PRINT "ENERGIA INSIJFFICIENT 

E": FOR A = 1 TO 1200: NEXT 
A: GOTO 410 

1310 PONE 34,0: HOME : TRI NT " * 

* RAPPORTO DANNI *#": PRINT 
: B = 0 

1315 FOR A = 1 TO 5:'PRINT MID* 
<F*,l + 11 * (A - 1),11); 

». 

1320 IF D (P, A> •=: * SD THEN PRINT 

"OK": GOTO 1330 

1325 °RINT D(P,A) • SD;" PERIODI 
PER RIPARAZIONE":!! - B + 1 
1330 NEXT A 

1335 PRINT "CORTINA -";:IN* = 

"DISATTIVATA" 

1340 IT PCP,5) « 1 THEN IN* = "A 
TTIVATA" 

1345 PRINT IN* 

1350 PRINT "TORPEDINI ~";:IN* * 
"PRONTE" 

1355 IF PCP,6) > SD THEN IN* = " 
PREACCESE" 

1360 IF PCP,6) - o THEN IN* = "S 
PENTE" 

1365 PRINT IN* 

1370 C - 3000 + 1000 * B: FOR A = 

1 TO C: NEXT A 


1375 

GOSUB 705: GOSUB 605: 

POKE 


34,11 :F(F , 1 ) = P(P,1) 

- 15 

1380 

GOSUE 805: GOTO 410 


1400 

REM 


J 401 

REM 


1 402 

REM “LASERS- 


1403 

RCM 


1404 

REM 


1 405 

HOME : PRINT : IF DCP 

,3) > 


SD THEN PRINT "LASER 

DANNEG 


GlATI": PRINT "PRONTI 

IN DAT 


A ASTRALE "; STR* (DCP 

,3 >): FOR 


A r 1 TO 1200: NEXT A: 
4 10 

GOTO 


1410 INPUT "QUANTA ENERGIA ? "; I 
N: IN = INT (IN) 

1415 IT IN ■ P(P,1) THEN PRINT 
"ABBIAMO SOLO ";P(P,1>;" UNI 
TA'": 30TO 1410 

1420 0 = P(P,0>:F(P,1 > = P(P,1) - 
IN: GDSUB 005:ST = ST 4 1 

J 425 FOR fi = I TO NG: IF A = P THEN 
1470 

1430 IF PCA.0) C > PCP.0) THEN 
1470 

1435 HOME : R - RND CRAI 

1440 IF R >.,75 THEN C* = "BERSA 

GL IO MANCATO!": GOSUB 1005: GOTO 
1470 

14 45 C* = "BERSAGLIO COLPITO!": GOSUE< 
1005 

1450 IN = IN * 2: D(A,6> = INT (D 
(A,6) + (IN / 100) * <100 - 
P(A,2)> ) 

1455 IF P (A , 1) - <D(A,6; + D(A,7 
)) > 0 THEN 147C 

1460 C* = "ASTRONAVE " + NA*( A ) + 

" DISTRUTTA ": GOSUB 1005 

1465 G <P (A, 0) , 1 ) - 0 (P (A-, 0) , 1 ) - 
1 : P (A, 0 ) « G:P ( P, 1 ) = P(P, 1 ) 
t 1000 

1470 NEXT A: GOTO 410 

1500 REM 

1501 REM 

1502 REM ^TORPEDINI* 

1 503 REM 

1504 REM 

1505 POME : FRI NT : IE DCP.4) > 

SD THEN PRINT "TORPEDINI DA 
NNEGGIATE" : PRINT "PRONTE IN 

DATA ASTRALE 3TR* (D(P,4 
)): GOTO 15.99 

1510 IF PCP,3) = -3 THEN PRINT » 
TORPEDINI TERMINATE": GOTO 1 
599 

15.15. IF PCP, 6) < >0 THEN 15.30 

1520 PRINT "TORPEDINI PRONTE PER 
LA PREACCENS \ ONE": PRINT " 

C ACCENSIONE ? GET IN*: PRINT 
IN*: IE IN* < > "A" THEN 15 

99 

1525 PCP,6) = SD -t 2: HOME : PRINT 
: PRINT "PREACCENSIONE OK':S 
T -- ST + 1: GOTO 1599 

1530 IT P (P,6 ) < = SD THEN 1550 

1535 PRINT "TORPEDINI PREACLESE: 
PRONTE IN": PRINT "DATA ASTR 
ALE STR* CP(P,6)) 

1.54 0 PRINT "CSI PER SPEGNERE 

GET IN*: IF IN* *• "S" THEN 
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APPLE II 


cerca di creare una falsa comunicazio¬ 
ne con la radio, e si hanno meno di 30 
unità di energia rimanenti, compare la 
scritta “energia insufficiente". 

Quando si desidera terminare il pro¬ 
prio turno senza utilizzare il comando 
navigazione, o senza aver usato due 
volte le armi, si preme il tasto Escape e, 
dopo pochi secondi, lo schermo si can¬ 
cellerà per mostrare il nome del prossi¬ 
mo giocatore di turno. Questa possibili¬ 
tà viene ricordata dalla scritta (Esc) 
all’estrema destra della linea di richiesta 
dei comandi. All'inizio del proprio turno 
di gioco, può capitare di vedere scritto 
“comunicazione galattica in arrivo. 
Premere un tasto". In effetti bisogna im¬ 
maginare l'esistenza di una torre di 
controllo, che sovrintende alla galassia 
e si occupa di comunicare a tutti i 
viaggiatori l’esistenza di tempeste ma¬ 
gnetiche (ovviamente dannose) o di 
stazioni di rifornimento disseminate nei 
vari settori. Le comunicazioni vengono 
diffuse per tre turni di gioco, che è la 
durata naturale delle stazioni e delle 
tempeste, a meno che qualcuno, an¬ 
dando in quei settori, le esaurisca. 

Per beneficiare di una stazione di rifor¬ 


nimento è sufficiente andare nel settore 
relativo; si riceve quindi la comunicazio¬ 
ne di quante unità di energia sono state 
aggiunte. La procedura per le tempeste 
magnetiche è uguale, ma naturalmente 
si cercherà di evitarle. In effetti, data 
resistenza di comunicazioni false, biso¬ 
gna procedere con molta cautela, te¬ 
nendo conto che dietro una stazione di 
rifornimento si può celare un nemico 
pronto ad aggredire, mentre una tem¬ 
pesta magnetica può in realtà nascon¬ 
dere un'astronave in avaria e quindi fa¬ 
cilmente distruggibile. Le false comuni¬ 
cazioni inserite dai giocatori, vengono 
trasmesse per tre turni in tutta la galas¬ 
sia; perciò il settore che viene richiesto 
quando se ne crea una, è quello al qua¬ 
le fa riferimento la comunicazione, e 
non quello in cui viene trasmesso. 
Quando un giocatore inizia il proprio 
turno, dopo aver premuto (un ca¬ 
rattere che non può venire inserito acci¬ 
dentalmente), riceve prima le comuni¬ 
cazioni galattiche (se ce ne sono), se¬ 
guite daH'informazione di quante unità 
di energia ha in più o in meno nel caso 
abbia raggiunto una stazione di riforni¬ 
mento o una tempesta magnetica. Se¬ 


guono quindi, solo nel caso si verifichi¬ 
no le situazioni relative, informazioni 
sull'autodistruzione di altri giocatori 
nello stesso settore, della presenza di 
altre astronavi e degli eventuali colpi 
subiti. Per ultima la comunicazione di 
riparazioni effettuate prima del tempo 
previsto. Tutti questi messaggi vengono 
presentati nella finestra centrale dello 
schermo mediante l'utilizzazione di 
un'apposita routine, che stampa le 
scritte facendole scorrere da destra a 
sinistra. Terminata la fase delle comuni¬ 
cazioni, compare la linea di richiesta dei 
comandi, alla quale si risponde con un 
numero da 1 a 7. secondo le funzioni 
spiegate sopra. Quando un'astronave 
viene distrutta, il messaggio che lo co¬ 
munica è preceduto da un segnale acu¬ 
stico. Chi riesce a infliggere il colpo fina¬ 
le che causa la distruzione di un'astro¬ 
nave, riceve un bonus di mille unità di 
energia. 

REMarks 

Il listato del programma è estrema- 
mente modulare, affinché sia di facile 
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PRINT " SPENTE":P(P, 6) = 0: 

GOTO 1599 

1545 IF P ( P,6 ) > SD THEN 159? 

1550 PRINT "TORPEDINI PRONTE.CF3 
PER FARE FUOCO GET IN#: 

IF IN# < > "F" TtICN 1595 

1555 P(P , 3> = P(P,3> 1: GOSUB 8 

05: IF P (P , 35 = 0 THEN PIP.6 
) = 0 

1560 Q = P(P,0): FOR A = 1 TO NG: 

IF A = P THEN 1590 

1565 IF P(A,0) < > P(P,0) THEN 

1590 

1570 HOME :R = RND <RA): IF R > 

.69 THEN C# = " BERSAGLIO MAN 
CATO"’: GOSUB 1005: GOTO 159 
0 

1575 C# = "BERSAGLIO COLPITO'GOFUB 
t 005 : D < A , 7 ) = IN T <D(A,7> + 

9 # ( 100 - p(A, 2)>) 

1580 IF P (A,1 ) - (D( A , 7) + D(A,6 
)) > 0 THEN 1590 

1581 C# =» "ASTRONAVE " + NAT (A) + 

" DISTRUTTA!": GOSUB 1005 

1505 G ( P < A , 0 ) ,1) = G <P <A, 0) , 1 ) - 


1 : P(A, 0) = 0 :P(P, 1 ) = P < P,1) 

+ 1000 

1590 NEXT A: ST = ST -i 1: GOTO 15 
99 

1595 HOME : PRINT : PRINT "CS3 P 
ER SPEGNERE LE TORPEDINI 
GET IN#: IF IN# = "S" THEN 
P(P,6) = 0 

1599 FOR fi = 1 TO 1200: NEXT A: HOME 
: GOTO 410 

1600 REM 

1601 REM 

1602 REM =COMPUTER : “ 

1603 REM 

1604 REM 

1605 HOME : PRINT : IF D(P,5> > 

SD THEN PRINT "COMPUTER DAN 
NEGGIATO": PRINT "PRONTO IN 
DATA ASTRALE "; STR# (D(P,5) 

): FOR A = 1 TO 1200: NEXT A 
: GOTO 410 

1610 POKE 34,0: POKE 35,24 

1615 VTAB 17: FOR A = 1 TO 7 

1620 HTAB 26: PRINT MTD# <E#.l v 
13 ■>: (A 1 ; , J.3t : NEx I A 

1625 POKE 34,11: POKE 35,14. 

1630 HOME : PRINT : PRINT "*COMA 
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lettura ed eventualmente modificabile. 
Nelle linee da 50 a 95 sono definite le 
principali stringhe utilizzate dal pro¬ 
gramma. Da 100 a 180 si trova l'inizializ- 
zazione del gioco, dove vengono chiesti 
i dati relativi ai giocatori, e il dimensio¬ 
namento delle matrici. In particolare, le 
linee 170,175 distribuiscono le astrona¬ 
vi in differenti settori, mentre la linea 180 
crea la data astrale di partenza che 
viene incrementata di uno a ogni ciclo 
di gioco. Alla linea 140 una piccola rou¬ 
tine attende che un tasto venga premu¬ 
to, e nel frattempo incrementa un con¬ 
tatore (RA), che verrà poi usato per la 
generazione dei numeri casuali in tutte 
le funzioni Rnd; questo viene fatto per 
evitare che il valore sia sempre lo stesso 
in tutte le partite, il che causerebbe una 
distribuzione iniziale dei giocatori sem¬ 
pre uguale. In 200, 440 si sviluppa il 
corpo principale del programma, dove 
per ogni giocatore si valutano le condi¬ 
zioni, e che rimanda continuamente alle 
varie routine di gestione di ogni singola 
situazione. Vediamolo nel dettaglio: 

210 - Viene incrementata la data astrale 
e inizia un nuovo turno. 

220 - Va alla routine 3300 che ordina la 


successione di gioco. 

230 - La subroutine 2700 crea le nuove 
comunicazioni galattiche e inserisce le 
stazioni o le tempeste, mentre la 2800 
cancella quelle vecchie. 

240 - Inizia il ciclo For-Next sul singolo 
giocatore. 

250 - Controlla che il giocatore di turno 
sia ancora in gioco, cioè se ha ancora 
energia disponibile. 

260 - Calcola il consumo determinato 
dagli schermi, dal radar, dalla preac¬ 
censione delle torpedini e dalla cortina, 
sottraendolo dall'energia disponible. 
270-280 - Scrive il nome del giocatore 
che è di turno e attende che sia premuto 

290-330 - Disegna tutto lo schermo e 
quindi passa a scrivere le comunicazio¬ 
ni galattiche. 

340 - Va alla routine 2900 che controlla 
se vi sono stazioni o tempeste. 

350 - Come se si è verificata l'autodistru¬ 
zione di una qualsiasi delle astronavi. 
360 - Comunica la presenza di astrona¬ 
vi nel settore e gli eventuali danni subiti; 
con la routine 3000 provvede alle ripa¬ 
razioni necessarie in anticipo sui tempi 
previsti. 


370-400 - Attende che venga inserito un 
comando valido e va alla routine di ge¬ 
stione corrispondente. 

410 - Con il controllo della variabile ST si 
verifica se le mosse fatte finora non im¬ 
plichino il termine del turno. 

440 - Chiude il ciclo For-Next per il gio¬ 
catore e torna a 210 per iniziare un nuo¬ 
vo turno di gioco. 

La routine di stampa delle scritte scor¬ 
revoli si trova in 1000, 1040; sfrutta la 
funzione Mid$ dell'Applesoft scrivendo 
ogni volta sullo schermo un pezzo della 
comunicazione da dare, aggiungendo 
una lettera alla volta e dando cosi l'im¬ 
pressione di uno scorrimento. 

All'interno delle routine condizione 
(800) si verifica che l'energia a disposi¬ 
zione non sia finita; in questo caso se ne 
uscirebbe per andare alla routine 2600 
che comunica la distruzione della nave. 
In effetti, mentre la partita procede, i 
giocatori vengono eliminati dal gioco, 
sino alla proclamazione del vincitore. 
Alle linee 800-855 si trova la routine che 
dà la condizione dell'astronave; al suo 
interno si trova un controllo sull'energia 
ancora disponibile, e se è esaurita, il 
programma esce da questa routine per 
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1S02 REM -COMPUTER TRAIETTORIA- 


1003 REM 



NDO - GET IN* 

1 G04 

REM 

1635 

fN = VAL (IN*): IF IN < 1 OR 

IN > 5 THEN 1630 

1005 

HOME : PRINT : IF P(P,1) < 

11 Tl'EN PRINT "ENERGIA INSÙ 

1640 

ON IN GOSUB 1305,1905,2005, 
2105,2205 


FFICÌENTE"t 'OR A = 1 TO 120 

0: NEXT A: RETURN 

1645 

GOTO 1630 

1Q10 

PRINT "«TRAIETTORIA.PER QUA 

1 700 

REM 


LE SETTORE 7 

1701 

REM 

1015 

GEI IN*:X2 = ASC (IN*) - 6 

1707 

REM =AUTODISTRUZIONE* 


4: IF X2 < 1 OR X2 > IO THEN 

1 703 

REM 


1015 

1704 

REM 

1020 

PRINT IN*;"-"; 

1 705 

HOME : PRINT : INPUT "COMPO 

RRE IL CODICE DI AUTCDISTRUZ 

1825 

GET IN*: Y2 * ASC (IN*) - 4 

B: IF Y2 > 9 THEN 1925 


IONE -> "; IN* 

1030 

PRINT IN*: O =- P(P,0): GCSUB 

1710 

IF IN* - SD*(P) THEN 1725 


505 

1715 

FLASH : PRINT "«ANNULLATO*" 

1935 

XI - X :Y1 = Y: GOSUB 565 

1 720 

FOR A * 1 TO 1200: NEXT A: 

NORMAL : GOTO 410 

1840 

HOME : PRINT : PRINT "*SETT 

ORE "; CHR* (X2 > 64);"-"; CHR* 

1725 

FOR A =- 1 TO NG 


(Y2 + 48:: RRINT "«DISTANZA 

t 730 

IF A = P THEN 1740 


" ;D:" ENERGIA OCCORRENTE 

1735 

IF P(A,0) = I»(P,0) THEN DIA 


";D * 12 


.01 -= 1 

1345 

P(R,1) - r(P,l) 10: GOSUB 

1 740 

NEXT A: GOTO 2605 


005: TOR A = 1 TO 2500: NEXT 

1000 

REM 


A: RETURN 

1901 

REM 

1900 

REM 
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andare a quella di linea 2600 che comu¬ 
nica la distruzione della nave. Nella rou¬ 
tine di gestione delle torpedini (1500) si 
controlla sempre lo stato della preac¬ 
censione. Quando le torpedini sono 
spente il valore relativo è uguale a 0, 
mentre quando sono pronte il valore è 
uguale o inferiore alla data astrale at¬ 
tuale; infine nel caso siano state preac¬ 
cese, ma non siano ancora pronte, si 
avrà un valore inferiore alla data. Ogni 
volta che viene sparato un colpo (sia 
per le torpedini che per i laser), si verifi¬ 
ca che sia andato a segno o meno. Se il 
bersaglio è stato colpito occorre una 
nuova verifica per controllare se non sia 
stato anche distrutto. La routine dei col¬ 
pi subiti, linee 2500-2535, considera le 
unità di energia che colpiscono effetti¬ 
vamente la nave (la parte parata dagli 
schermi è già detratta dalla routine di 
sparo stessa) e, se questa supera il va¬ 
lore di 450 unità, sceglie quale strumen¬ 
to danneggiare tramite l'uso di Rnd. Nel 
caso lo strumento fosse già danneggia¬ 
to, il nuovo periodo di riparazione verrà 
sommato al precedente, anche se la co¬ 


municazione che viene data indica solo 
il danno attuale. La riparazione antici¬ 
pata degli strumenti danneggiati viene 
poi svolta dalla routine 3000 su una 
base puramente casuale. Si decide in¬ 
somma se effettuare una riparazione e 
su quale strumento, poi si verifica se 
questo è realmente in avaria, nel qual 
caso si procede dandone comunicazio¬ 
ne. Da notare il controllo, operato per 
verificare che lo strumento scelto non 
abbia danni per più di 4 periodi astrali: 
in questo caso, infatti, la riparazione 
non ha luogo, dato che sarebbe a dir 
poco clamorosa! 

La routine 2800 serve per l'aggiorna¬ 
mento delle comunicazioni galattiche, 
provvede cioè a eliminare quelle che 
non devono più essere trasmesse per¬ 
ché scadute come validità nel tempo 
oppure perché la tempesta o stazione a 
cui si riferiscono è già stata utilizzata. 
La routine esegue l’eliminazione delle 
comunicazioni controllandole secondo 
l’ordine in cui sono state immagazzina¬ 
te e verifica se alcune di esse devono 
essere tolte. In quest'ultimo caso, copia 


la comunicazione successiva al posto 
di quella che deve essere eliminata, 
spostando tutte le altre di un posto più 
in basso nella matrice che le contiene, è 
necessario per questo motivo che la 
matrice delle comunicazioni sia di un 
valore più grande (21) rispetto al nume¬ 
ro delle comunicazioni ammesse (20). in 
modo che non venga dato un “Bad 
subscript errar'' durante l’esecuzione 
della linea 2825. Alle righe 3300-3325 si 
trova la routine che stabilisce la se¬ 
quenza dei giocatori. Questa sfrutta un 
sistema di ordinamento, o meglio di di¬ 
sordinamento, poiché inserisce in mo¬ 
do casuale i vari giocatori nella matrice 
B. La stessa matrice viene poi ripresa 
nella linea 240 dove, con un ciclo For- 
Next, vengono estratti i giocatori, che 
quindi non sono più nel loro ordine " na¬ 
turale". 

Nelle righe 2605 e 3215 la scritta 
"GGG" deve essere interpretata come 
caratteri di controllo corrispondenti al 
suono della campanella, inseribili con 
Control-G. 

Il settore occupato da un giocatore è 
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1901 REM 

1902 RIM -COMPUTER RADAR= 

1903 REM 

1904 REM 

1905 HOME : FRINÌ : IF P(P,1) < 

10 THEN FRI NT "ENERGIA INSÙ 
FPIGIENI E": FOR A = 1 TO 120 
0: NEXT A: RETURN 

1910 FRINT "^ESTENSIONE RADAR ? 

11 m 

) 

1915 GEI IN*:IN = VAL (IN#-): PRINT 
IN: IF IN < 1 THEN 1910 
1920 P (P, 4) = IN: A = (IN + 2) s 2 

: IF PIP,1) - A < 1 THEN PRINT 
"ENERGIA INSUFFICIENTE": GOTO 
1910 


1925 

POKE 34,0: GOSUB 705: GOSUB 


605 


1930 

P(P,1) = P(P,1) 

- A: GOSUB 3 


05: POKE 34,11: 

RETUFrN 

2000 

REM 


2001 

REM 


2002 

REM =COMF UTER 

RADI0- 

2003 

REM 


2004 

REM 


2005 

HOME : PRINT : 

IF P(P,1) < 


36 THEN PRINT "ENERGIA INSÙ 


FFICIENTE": FOR A « 1 TO 120 
0: NEXT A: RETURN 

2010 IF CO = 20 THEN PRINT "*L1 
NEE SOVRACCARICHE": FOR A = 

1 TO 1200: NEXT A: RETURN 

2015 PRINT "*PER QUALE SETTÓRE ? 

" ! 

2020 GET X*: IF X* = M* THEN RETURN 

2025 X » ASC < X r) - 64: IF X < 1 
OR X > 18 THEN 2020 

2030 PRINT X*;; 

2035 GET Y*: IF Yl = M* THEN RETURN 

2040 Y « ASC (Y*> - 49: IF Y > 9 
THEN 2035 

2045 PRINT Y* 

2050 HOME : PRINT : PRINT "*PÉR 
SEGNALARE: 1)STAZIONE RIFORN 
IMENTO O 2)TEM 

PESTA MAGNE!'ICA ?"; 

2055 GET IN*:IN = VAL (IN*):IN = 

IN ♦ 1: IF IN < >2 AND IN < 

> 3 THEN 2050 

2065 F'(P,1> = P(P,1> - 35: GOSUB 
805: GOSUB 535 

2070 HOME :CO = CO + 1:ÓOM(CO . 0) 

= Q:CUM(CO,1) = SD + 3:COMI 
(CO) * "SI SEGNALA UNA " + 7 
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*(IN> + " IN ' ► X* + Yt 
2075 F'RINT FOR A = 1 TO 1 

200: NEXT A: RETURN 

2100 REM 

2101 REM 

2102 REM -COMPUTER CORTINA 3 

2103 REM 

2104 REM 

2105 HCME : F'RINT : IF P(P,5> THEN 
2125 

2110 PRINT ">CORTINA DISATTIVATA 
PRINT "«CAI PER ATTIVARE" 

GET INI 

2115 PRINT : IF IN* = "A" THEN P 
<P,5) 3 1: PRINT "♦ATTIVATA" 

: GOTO 2140 

2120 PRINT "*NON ATTIVATA": GOTO 
2140 

2125 PRIMI "«CORTINA ATTIVATA": PRINT 
"*CDJ PER DISATTIVARE";: GET 
IN* 

2130 PRINT : IF INT = "D" THEN P 
(P,5) 3 0: PRINT "«DISATTIVA 
TA": GOTO 2140 

2135 PRINT "«NON DISATTIVATA" 

2140 TOR A = 1 TO 1200: NEXT A: RETURN 

2200 REM 

2201 REM 

2202 REM -COMPUTER RITORNO 3 

2203 REM 

2204 REM 

2205 PRINT "#OK": GOSUB 905 

2210 pop : goto 410 

2300 RE! I 

2301 REM 

2302 REM —COMUNICA PRESENZE 3 

2303 REM 

2304 REM 

2305 Q = P(P, 0 ): FOR A - 1 TO NG: 

IF A 3 P OR P(A,1> < 1 THEN 

2315 

2310 IF P <A,0) - 0 THEN C* 3 "DA 
I.LA SALA RADAR COMUNICANO LA 
PRESENZA IN QUESTO SETTORE 
DELL'ASTRONAVE " + NAT(A): GOSUD 
1005 

2315 NEXT A: RETURN 

2400 REM 

2401 REM 

2402 REM -COMUNICA COLPI SUBITI 3 

2403 REM 

2404 REM 

2405 IT D(P,6) 3 0 THEN 2420 
2410 IN 3 D(f,6):C* 3 STR* (D(P, 

6)) -t " UNITA' DI ENERGIA CO 


LPITF DA 1 ASER" 

24J5 COSUB 1005:D(P,6) 3 0: GOSUB 
2505 

2420 IT D <P,7 3 0 THEN 2435 

2425 Ili - D(P,7):C* 3 STRf (D<P, 

7) t " UNITA' DI ENERGIA CO 
LETTE DA TORPEDINI" 

2430 GOSUB 1005: D(P, 7) 3 0: GOSUEi 
2505 

2435 RETURN 
2500 REM 
'■501 REM 

2502 REM -SUBISCE COLPI 3 

2503 REM 

2504 REM 

2505 P(P,1) 3 P(P.l) - IN: IF IN < 

450 TIIEN 2535 

2510 R 3 INT (5 * RND (RA) + 1) 

2515 IN - INT ((IN • 300) / 300: 

: IT IN 3 0 THEN IN = 1 

2520 D(P.R) 3 IN t SD * (D(P,R> = 

0) + D(P.R) r: ,'D(P,R) > 0) 

2523 C$ - "DANNI A " + MID* <F$, 

1 + 11 * (R - l> ,11) + " - " 

+ 5TR* (IN) + " PERIODI AS 
INALI PER LA RIPARAZIONE": GOSUB 
1005 

2530 II' R 3 2 THEN P(P,2) 3 5 
2535 RETURN 

2600 REM 

260 1 REM 

2602 REM =DISTRUZIONE 3 

2603 REM 

2604 REM 

2605 HOME : PRINT "GGG':C* = "LA 
TUA ASTRONAVE E' STATA DIST 

RUTTA...": GOSUB 1005 
2610 O(P(P,0),1) - G (P (P , 0.) , 1 > - 

1: FOR A 3 0 TO 6:P(P,A) 3 0 
: NEXT A 

2615 IN 3 0:ST 3 2:GG 3 GG - 1 : IF 
GG 3 1 THEN 3205 
2620 GOTO 410 

2700 REM 

2701 REM 

2702 REM -CREA COMUNICAZIONI 3 

2703 REM 

2704 REM 

2705 IF CO 3 20 T; IEN RETURN 
2710 R 3 RND (RA): IF R > .6 THEN 

RETURN 

2715 0 3 INT (1G0 * RMD (RA) + 

1): IF G(Q,0) < > 0 OR G(Q, 

1) < >0 THEN 2715 

2720 GOSUB 505:R 3 INT (2 * RND 
(RA) + 2):CO =00+1 
2725 COM (CO ,0) 3 Q:COM'CO,1> = SD 
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individuato dal suo numero progressi¬ 
vo; vengono perciò usate le routine 500 
e 530 per convertire il valore in quello 
delle sue coordinate e viceversa. 

Su tutti gli input forniti dai giocatori 
viene effettuato un controllo, per verifi¬ 
care che i valori forniti siano accettabili. 
Le tabelle del significato di matrici e 
variabili, e del riferimento di ogni riga in 
cui compaiono, consentono poi di mo¬ 
dificare certi valori (come il numero di 
torpedini disponibili o la quantità di e- 
nergia che si può avere da una stazione 
di rifornimento) in modo da personaliz¬ 
zare il gioco sul livello di difficoltà prefe¬ 
rito. 


Lista delle variabili 


A, B, C, Z - Utilizzate in cicli For-Next. 
AS, B$, DS, E$ - Stringhe come da inizia- 
lizzazione in linee 50-95. 

F$, G$, H$, J$, MS, L$, T$, C$ - Stringa 
da stampare con la routine di riga 1000. 
CA, CB, CD, CS - Delimitatori della por¬ 
tata del radar. 

L, M , N , H - Parametri per la routine di 


stampa (1000). 

CO - Contatore delle comunicazioni 
presenti. 

IN, INS - Utilizzati principalmente per i 
dati forniti dai giocatori. 

GG - Contatore decrementato per i gio¬ 
catori ancora in gioco. 

NG - Numero dei giocatori. 

SD Data astrale. 

ST - Contatore per il numero di colpi 
sparati in un turno. 

RA - Argomento di Rnd per la genera¬ 
zione di numeri casuali. 

R - Numero casuale. 

Q - Settore occupato. 

X, XI, X2 Y, Y1, Y2 - Coordinate del 
settore occupato e di quello preso in 
considerazione per calcolare la distan¬ 
za. 

P - Giocatore di turno. 

N$ - Nella routine 1000 indica la frazio¬ 
ne esatta della stringa da stampare per 
dare l'idea dello scorrimento. 

OS - Carattere da stampare nel disegno 
dell'estensione radar. 

PI - Ciclo For-Next dei giocatori. 

D - Distanza tra due settori. 

BS(NG) - Vettore che contiene la se¬ 
quenza di gioco. 

CO$(21) - Comunicazioni galattiche. 


SDS(NG) - Comando di autodistruzio¬ 
ne. 

NAS(NG) - Nome dell'astronave. 

P$(NG) - Nome del giocatore. 


Lista delle matrici 


Matrice giocatore 
P(NG,0 - Settore occupato. 

P(NG,1 - Energia disponibile. 

P(NG,2 - Regolazione schermi. 

P(NG,3 - Numero di torpedini. 

P(NG,4 - Portata radar. 

P(NG,5 - Condizione cortina (1 = atti¬ 
vata, 0 = spenta). 

P(NG,6 - Preaccensione torpedini. 


Matrice danni 

D(NG,0 - Autodistruzione di altri (1 = si, 
0 = no). 

D(NG,1 - Navigazione. 

D(NG,2 - Schermi. 

D(NG,3 - Laser. 

D(NG,4 - Torpedini. 

D(NG,5 - Computer. 
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2830 

GOTO 2810 


+ 3: COmCO, 2) - 1:COM*(CO) = 

2835 

RETURN 


"COMUNICAZIONE GALATTICA : S 

2900 

REM 


I SEGNALA UNA " + T*<R) ■* " 

2901 

REM 


IN " + CHR* (64 + X) CHR* 

2902 

REM =£TAZIONE/TEMPESTA» 


<48 v Y) : G (0,0) - R -- 1 

2903 

REM 

2730 

RETURN 

2904 

REM 

2000 

REM 

2905 

Q = P(P ,0): R = INT (300 * RND 

2001 

REM 


(RA) + 300): IT G (Q, 0) = 0 THEN 

2002 

REM =AGGIORNA COMUNICAZIONI 


2935 


= 

2910 

IF 3(0,0) - 1 THEN C* -- "ST 

2803 

REM 


AZIONE DI RIFORNIMENTO : " t 

2004 

REM 


STR* (R) + " UNITA' PI ENER 

2005 

A - 13: IF CO = 0 THEN 2G35 


GIÀ": GQSUB 1005:P(P.l) = P( 

2810 

A = A + 1: IF A > CO THEN 28 


P , 1 ) > R 


35 

2915 

IF 6(0,0) = 2 THEN IN = INT 

2015 

IF rOM(A,1) SI) THEN 2835 


( (R / 100) * ( 100 - PCP, 2) ) > 

2820 

IF COM ( A, 2) = 1 THEK G(COM< 

A,0),0) =0 


:C* = "TEMPESTA MAGNETICA : 

" + STR» (IN) > " UNITA 1 DI 

2825 

FOR B - A TO CO: COM (B,0) =- 
COM 1 Et + 1,0):COM<B.1> COM ( 


ENERGIA COLPITE": GOSUB 100 

5tP(P,i ) = p p,i) r 


B v 1,1):COM (B,2! - COM(B + 

1,2):COM» ( B) COM» (E + 1) : NE X T 

8920 

ZI ZI + 1:0 = P<P,0) : Il Z 

1 > CO THEN 2935 
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2925 IF CCJM ( Z t . 0) Q AND COMÌZI 

,2) = 1 THEN CON ( Z1,1 ) = 0: GOSUB 
2005 

2930 GOTO 2920 

2935 ZI = 0: RETURN 

3000 REM 

3001 REM 

3002 REM “RIPARAZIONE 3 

3003 REM 

3004 REM 

3005 R = RND (RA) : IF R > .70 THEN 
3030 

3010 R = INT (5 * RND (RA) + 1) 

: IF D(F',R> < SD THEN 3030 

3015 IF D(P ,R) - SD > 4 THEN 303 
0 

3020 D(P.R) 3 0:C* = MIDT (F*,l + 
il X (R i ; , 1 1 ; 

3025 C4 = "NUOVE TECNICHE ADOTTAT 
E PER RIPARARE " + Df: 60SUB 
1005 

3030 RETURN 

3100 REM 

3101 REM 

3102 REM -Al TODISTRUZIONE ALTRUI 

3103 REM 

3104 REM 

3105 IN = IN (250 * RND (RA) + 

350) : IN't 3 STR* (IN) 

3110 C-4 "LE RADIAZIONI EMESSE D 
ALL'ASTRONAVE CHE SI E' AUTO 
DISTRUTTA DANNEGGIANO " + IN 
* 4- " UNITA' DI ENERGIA": GOSUB 
1005 

3115 D(P,0) 3 0: P(P,1 ) = P(P,1) - 
IN 

3120 RETURN 

3200 REM 

3201 REM 

3202 REM “FINE 3 

3203 REM 

3204 REI! 

3205 TEXT : HOME 

3210 FOR A - 1 TO NS: IF P(A,1> > 

0 THEN Z A 

3215 NEXT A: PRJNT "GGG": INVERSE 
: "RI NT G.t;.‘I;G:t: NORMAL : FOR 
A - I TO 2500: NEXT A: VTAB 

7 

3220 VTAB 7. FLINT " CONORATULAZ 
TOMI A ";l-"t(Z)j PRINT " CHE 
MA VINTO AL COMANDO": PRINT 
" BILL 'ASTRONAVE "sNAf(Z): PRINT 


: PRINT 

322’ ì IITAl 13: r RINT "SI RINGRAZI 
ANO": PRINT : FOR A = ITO N 
G 

3230 IF A 3 Z TIÌEN 3240 
3235 FLINT "L. ’ ASTRONAVE " ; NAT (A) 
COMANDATA DA ":P*(A> 

3240 NEXT A: END 

3300 REM 

330 1 REM 

3302 REM -SEQUENZA GIOCO 3 


3303 

REM 



: '.04 

REM 



3305 

FOR A = t TO 

NG: A (A) 3 A: 

NEXT 


A 



33 III 

R = NG: FOR A 

= 1 TO NG 


3315 

E 3 INT (R * 

RND (RA) 4- 

1) 


: B (A) = A (E) : 

FOR B = E TO 

R 

3320 

A (B> 3 A (P + 

1): NEXT B:R 

=3 


R 1: NEXT A 



3325 

RETURN 




D(NG,6 - Colpi ricevuti da laser. 
D(NG,7 - Colpi ricevuti da torpedini. 


Matrice galassia 

G(180,0 - Presenza tempesta/stazione 
nel settore. (0 = nessuna 1 = stazione, 
2 = tempesta). 

G(180,1 - Numero di astronavi presenti 
nel settore. 


Matrice comunicazioni 
CO(21,0 - Settore a cui si riferisce. 
CO(21,1 - Data astrale in cui decade la 
comunicazione. 

CO(21,2 - Realtà della comunicazione 
(0 = falsa, 1 = vera). ■ 
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Apple 


Vendo per Apple II "Superlolo 1.1" con 3 diverse opzioni di 
selezioni incrociale per qualsiasi sistema di doppie e triple (nr 
segni 1X2: segni consecutivi, correzione orrori). Sviluppo su 
monitor o stampante. L 60.000 Roberto Rossi • Via Lario. 26 - 
20159 Milano - Tel 02/6070236 


Vendo Apple II 64 Kbyte originale, perfetto, con scheda langua- 
ge 16 Kbyle. scheda controller per due drive, drive originale e 
monitor 12" a fosfori verdi a L 1 320 000 Regalo tastienno 
numerico e 10 programmi a scelta Roberto Rossi - Via Lario. 26 - 
20159 Milano - Tel 6070236 


Vendo Apple Ile più monitor 12 M a fosfori vordl, software tra cui 
Appleworks. Apple Wrlter. Pascal. Multlplan, VisiCalc. ecc. (per 
un valore di L. 1.500.000) o 16 manuali Assicurazione pagata 
per un anno; tutto a L. 3.000.000. Franco Braga - Via L Pasteur, 
18 - 24047 Treviglio (BG) - Tel 0363/4922 


Commodore 


Vendo C 64 più registratore originale, mobilotto in legno per C 64 
e periferiche, joystick. 400 programmi (200su nastri e 200 listati), 
il tutto a sole L. 500.000 Teodoro Traversa - Via U Foscolo. 3 - 
63100 Ascoli Piceno - Tel 0736/61342 


Vendo "Conoscere II computer direttamente dal computer" per 
C 64 e VIC 20 a L. 100.000 oppure cambio con programmi per C 
64 Nicola Lorizzo - Via Pisani. 42 - 70031 Adria (BA) - Tel 
0883/83829 


Per C 64 dispongo di programmi utility, elettronica, gestionali, 
ingegneria, radioamatori, giochi o molti manuali. Cambio o 
vendo Massimo Cantelli - Via Corèo. 40 - 40051 Altedo (BO) - Tel. 
051/871270 


Vendo VIC 20 più registratore, entrambi perfettamente funzio¬ 
nanti. a L. 160.000. Dispongo inoltre di libri sul BASIC del VIC 20. 
Tratto solo con la provincia di Udine Ivan Scinone - Via Buonar¬ 
roti. 49 - 33010 Tavagnacco (UO) - Tel. 682143 


Vendo al miglior offerente Commodore 2001, registratore C2N, 
manuali. 40 programmi, riviste CO. Praticai Computing Giorgio 
Mameli - Via G B. Carta. 2 - 20128 Milano - Tel 02/2565212 


Vendo Commodore 16 più registratore e Joystick corredato da 
vari libri dedicati e moltissimo software a L 450.000 trattabili 
Nuovo! Salvatore Vigllone - Via Marco Aurollo Severino. 21 - 
80137 Napoli - Tel. 081/457153 


Vendo per VIC 20 espansione da 8 e 16 Kbyte più programmato- 
re di EPROM 2716 e 2516 a L. 30.000 Telefonare ore 19.00-20.00 
Nicola Pedroli - Via Garavaglia - 20080 Cisliano (MI) - Tel 
02/9018875 


Vendo VIC 20 espanso a 32 Kbyte RAM con registratore. 4 
cartucce e giochi su cassetta II tutto a sole L 400 000 trattabili 
Possibilmente in zona Gianfranco Fera - Via Modenese. 1016 - 
41058 Vignofa (MO) - Tel. 059/762619 


Vendo (anche separatamento) VIC 20 più disk drive, stampante, 
registratore, trislot. espansione 16 Kbyte. espansione 3-5 Kbyte. 
HGR. Aid. 4 cartridge. Speech Synth. 100 riviste al 30% del 
prezzo di listino! Enrico Braglia • Via Ronco. 40 - 22060 Carimate 
(CO)-Tel 031/780376 


Vendo VIC 20, registratore, joystick, paddlo, espansione 3-8-16 
Kbyte; cartridge Avengor. Suporrnash. Advenlureland. Omega 
Race, Cosmich Cruncher; software su cassotta e listato, libri. 
Tutto a L. 350.000. Luca Rusconi • Via Tobagl, 25 • 20067 Paullo 
(MI) - Tel. 02/9064330 


Vendo VIC 20 più 2 cartucce gioco e Joystick a L 210.000 Michele 
Passiatore • Via Cimarosa. 3 - 72019 S. Vito dei Normanni (BR) • 
Tel 0831/969149 


Vendo Commodore 16 più registratore e software Comperato il 
23.02 1985. ancora in garanzia, tutto a L 180 000. Scrivere a; 
Antonio Venuti - Via S. Anna. 97 * 91100 Trapani 


Acquisto floppy disk per C 64 solo se vera occasione Luca 
Mantegazza - Via Mosè Bianchi. 26 - 20149 Milano - Tel. 
02/4396605 


Compro stampante MPSS01 funzionante. Offro L 250.000- 
300.000 Tratto solo zona Milano Telefonare a. Walter Quaglia • 
Via Cabella, 2 - 20152 Milano - Tel. 02/4531469 


Vendo C 16 con garanzia, registratore, Joystick. 80 giochi ed 
utility, riviste con programmi Tutto come nuovo Telefonare 


dopo le ore 20.00 Giuseppe Carrera - Via A Diaz. 57 • 80029 
S Antimo (NA) - Tel 081/8331520 


Vendo C 64 (6 mesi di vita) più registratore 1530, 2 Joystick, 
Music Maker, cassette giochi e numerosi listati, copertura anti¬ 
polvere ed imballi originali. Prezzo trattabile Guido Di Virgilio • 
Via Roma. 3 - 65010 Nocciano (PE) - Tel 085/847303 


Vendo C 16 più registratore, joystick, copritastiera. 44 giochi. 1 
cartuccia e 2 manuali in italiano con cassetta a L 320 000 
Massimo Mari - Via S Paolo. 65 -10141 Torino - Tel. 011/375587 


Vendo Commodore con periferiche. Prezzi stracciati più L 
10 000 per spese di spedizione Claudio Cardoni • Via Tanari, 
320 - 40024 Castel S Pietro Terme (BO) - Tel 051/940521 


Vendo C 64 più drlvo 1541, registratore. 2 joystick. 3 libri, 600 
programmi, molto utility a L. 1 100.000 trattabili. Oppure cambio 
con vldoorogistratoro. Nello Labardi • Via Roma, 33 - 58019 Porto 
S Stefano (GR) - Tol. 0564/818835 


I Cambio giochi solo su disco per C 64. In particolare B 
I cerco utility e linguaggi. Offro Strip Poker. Jumpman ■ 

■ Jr. Dallas Quest, ecc Telefonare a. Daniele Pelracca- B 

■ Via Carlo Pisacane. 26 - 04100 Latina • Tel ■ 

■ 0773/497071 ■ 


Per C 64 vendo cartridge Fast Load Epyz a L. 65.000 con manua¬ 
le; cartridge Vizastar con manuale L 90 000 Spedizione in 
contrassegno. Eliseo Mastrangelo - Via Casilina. 1641 - 00133 
Roma • Tel. 06/6151345 


Compro VIC 20 Inespanso o Speclrum 48 Kbyto purché vora 
occasione Sono interessato altresi all'acquisto di un C 64 (sem¬ 
pre se occasione) Michele Sammartino - Via Pergollna, 7/n - 
25035 Ospitalotto (BS) 


Vendo C 64 più registratore, molto software. 1 cartridge. rivisto, 
manuale d'uso Tutto in ottimo stato a L. 320.000. Telefonare la 
sera dalle 20 00 in poi Marco Izzi • Via Colonia Giulia. 282 • 86079 
Venafro (IS) - Tel 0865/909139 


Cambio programmi per C 64 solo su disco. Inviare liste a; Gilber¬ 
to Minguzzi - Via Landoni. 57 - 48100 Ravenna - Tel. 0544/37832 


Il Club Charly Software propone e invita i possessori di C 64 e 
VIC 20 a scambiare idee, esperienze, listati software e hardwa¬ 
re Carlo Vincenzi • Via Resistenza. 26 - 41033 Concordia S/S 
(MO) - Tel. 0535/54325 


Causa passaggio a sistema superiore svendo programmi per C 
64 Por informazioni rivolgersi a; Cesare Usai - Via Coggioso, 15 
-10135 Torino-Tel, 346533 


Cambio giochi por C 64. Ira cui alcuni dei migliori in circolazio¬ 
ne. Esigo massima serietà Fabio Galli - Via dei Partigiani. 25 • 
48100 Ravenna - Tel 0544/3886 


Sinclair 


Attenzione! Vondo Spectrum 48 Kbyte più registratore Sharp e 
60 programmi a L 420 000 trattabili. Telefonare ore pomeridiane 
o scrivere solo se interessati Alessandro Fincato - Via Roma. 
102 • 36022 Cassola (VI) - Tel 0424/83005 


Vendo ZX Spectrum completo di cavi. 40 giochi (Atre Atac, Deca¬ 
thlon, ecc ). 1 programma e 3 libri. Il tutto, per un valore di L. 
769 000. a L 549.000. Andrea Cordone - Via J Rulfini, 5 ini 8 - 
16128 Genova • Tel 010/585310 


Vendo ZX Speclrum 48 Kbyte completo di alimentatore o cavotti 
In regalo molto rivisto tipo Personal Software e MC Mlcrocom- 
putor. Tutto a L 300 000 trattabili Massimo Mondò • Via D. 
Fontana. 81 • 80128 (NA) - Tel 081/7709656 


■ Vendo software per Spectrum 48 Kbyte. Dispongo di B 

■ moltissimi programmi, dei quali numerosi originali ■ 

■ inglesi Favolosi, produzione 1985 Qualità del mate- ■ 

■ riale e dell'Incisione garantita Per informazioni ri voi- ■ 

■ gersi a: Antonio Giampietro - Via Annibaie di Francia. ■ 

■ 46 • 70059 Tram (8A) ■ 


Vendo Sinclair ZX81 più espansione di memoria Memopack 64 
Kbyte. cavetti, alimontalore. 1 manuale in inglese. 2 libri di 
programmi a L 230 000 trattabili (chiamare ore serali). Massimi¬ 
liano Firmani - Via Rossini. 2/A - 20090 Pieve Emanuele (MI) • 
Tel 02/90724359 


Vendo programmi per ZX Spectrum 48 Kbyte completi di istru¬ 
zioni. Possiedo lo ultime novità inglesi Telefonare ore posti a 
Marco Slmonettl - Via Montegrappa. 35 - 50047 Prato (FI) - Tol. 
593776 
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BEAMRIDER 

Activision 

C64: 

cassetta cod. UDK 001 
disk cod. EDD 001 
SINCLAIR: 

cassetta cod. URK 001 

HERO 

Activision 

C 64: 

cassetta cod. UDK 003 
disk cod. EDD 003 

DECATHLON 

Activision 

C 64: 

cassetta cod. UDK 004 
disk cod. EDD 004 
ATARI 

cassetta cod. UCK 004 
MSX: cod. UXK 004 

TOY BIZARRE 
Activision 

C64: 

cassetta cod. UDK 005 
disk cod. EDD 005 
SINCLAIR: 

cassetta cod. MRK 005 

ZENJI 

Activision 

C64: 

cassetta cod. UDK 006 
disk cod. EDD 006 
SINCLAIR: 

cassetta cod. URK 006 


PITFALL 11 
Activision 

C64: 

cassetta cod. UDK 007 
disk cod. EDD 007 
SINCLAIR: 

cassetta cod. URK 007 
ATARI: 

cassetta cod. UCK 007 
MSX: cod. UXK 007 

RIVER RAID 
Activision 

C64: 

cassetta cod. UDK 008 
disk cod. EDD 008 
SINCLAIR: 

cassetta cod. URK 008 
ATARI: 

cassetta cod. UCK 008 
MSX: cod. UXK 008 

SPACE SHUTTLE 
Activision 

C64: 

cassetta cod. UDK 009 
disk cod. EDD 009 
SINCLAIR: 

cassetta cod. ERK 009 
ATARI: 

cassetta cod. UCK 009 

DESIGNERS PENCIL 
Activision 

C64: 

cassetta cod UDK 102 
disk cod. EDD 102 
SINCLAIR: 

cassetta cod ERK 102 


PASTFINDER 

Activision 

C64: 

cassetta cod. UDK 104 
disk cod. EDD 104 
MSX: cod. UXK 104 

ROCK’N’BOLT 

Activision 

C64: 

cassetta cod. UDK 105 
disk cod. EDD 105 

GREAT AMERICAN 
CROSS COUNTRY 
ROAD 

RACE (G.A.C.C.R.R.) 
Activision 

C64: 

cassetta cod. UDK 106 
disk cod. EDD 106 
ATARI: 

cassetta cod. UCK 106 

PITFALL 

Activision 

C 64: 

cassetta cod UDK 002 
disk cod. EDD 002 

GO TO HELL 
Activision 

SINCLAIR: 

cassetta cod MRK 121 

ENDURO 

Activision 

SINCLAIR: 

cassetta cod URK 010 


ESCLUSIVO 

Tutte le cassette e i floppy disk 
sono corredati di un manuale 
di istruzioni in italiano. 


MASTER OF THE 

LAMPS 

Activision 

C64: 

cassetta cod. UDK 116 
disk cod. EDD 116 
MSX: 

cod. UXK 116 

RESCUE ON 
FRACTALUS 
Activision 

C64: 

cassetta cod. UDK 123 
disk cod. EDD 123 
ATARI: 

cassetta cod. UCK 123 
disk cod. ECO 123 

STAR LEAGUE 

BASEBALL 

Activision 

C64: 

cassetta cod. UDK 502 

ON FIELO FOOTBALL 
Activision 

C64: 

cassetta cod. UDK 503 
SINCLAIR: 

cassetta cod. MRK 503 

ON COURT TENNIS 
Activision 

C64: 

cassetta cod. UDK 504 

BOXING 

Activision 

C64: 


MUSIC STUDIO 
Activision 

C64: 

cassetta cod. UDK 113 
disk cod EDD 113 

cassetta cod. UDK 507 
SINCLAIR: 

cassetta cod MRK 507 

NEW 

WEB DIMENSION 
Activision 

C64: 

cassetta cod. UDK 115 

RIDDLERS DEN 
Activision 

SINCLAIR: 

cassetta cod MRK 603 

NEW 

disk cod EDD 115 


1 OF THE MASK 

GHOSTBUSTERS 

Activision 

Activision 

C64: 

C64: 

cassetta cod. UDK 601 

cassetta cod. UDK 108 

disk cod. EDD 601 

disk cod EDD 108 

SINCLAIR: 

SINCLAIR: 

cassetta cod MRK 108 

cassetta cod. URK 601 

ATARI: 

HACKER 

disk cod. ECO 108 

Activision 

MSX: 

C64: 

cod. UXK 108 

cassetta cod. UDK 125 
disk cod. EDD 125 t 

TOUR DE FRANCE 

SINCLAIR: 

Activision 

cassetta cod. MRK 125 

C64: 

ATARI: 

cassetta cod. UDK 112 

cassetta cod UCK 125 

disk cod. EDD 112 

disk cod. ECO 125 


NEW 

WINTER SPORTS 

Activision 

SINCLAIR: 

cassetta cod. URK 602 


MINDSHADOW 

Activision 

C64: 

cassetta cod. UDK 110 
disk cod. EDD 110 
SINCLAIR: 

cassetta cod. MRK 110 


NEW 

BALLBLAZER 

Activision 

C64: 

cassetta cod. UDK 122 
disk cod EDD 122 
SINCLAIR: 

cassetta cod MRK 122 
ATARI: 

cassetta cod. UCK 122 
disk cod. ECO 122 

NEW 

LITTLE COMPUTER 

PEOPLE 

Activision 

C64: 

cassetta cod. UDK 126 
disk cod. EDD 126 

BARRY McGUIGAN 
WORLD 

CHAMPtONSHIP 

BOXING 

Activision 

C64: 

cassetta cod. UDK 507 
SINCLAIR: 

cassetta cod. MRK 507 

PITSTOP 

Epyx 

C64: 

cassetta cod EP 001 

PITSTOP 11 
Epyx 

C64: 

cassetta cod. EP 002 

SUMMER GAMES 
Epyx 

C64: 

cassetta cod EP 003 

SUMMER GAMES I i 
Epyx 

C64: 

cassetta cod EP 004 

WINTER GAMES 
Epyx 

C64: 

cassetta cod. EP 005 


Vuoi solo cassette e floppy disk 
originali? E solo di altissima qualità? 
Sei sempre attento alle novità e ci 
tieni ad averle prima degli altri? 
Allora, dai: scegli subito i tuoi 
videogiochi tra questi 38 titoli, tutti 
garantiti da N.B.C. distributore 
esclusivo per l'Italia. Ordinali, te li 
invieremo subito a casa tua. 

Buon divertimento! 


Compila il Buono d'ordine 
e spediscilo in busta chiusa a: 

N.B.C. Italia S.r.l. 

Via Mac Mahon, 19 
20155 Milano 

Distributore esclusivo Activision e 
Epyx per l’Italia. 


r 


BUONO D'ORDINE 


x 


Si, desidero ricevere i videogiochi che indico qui sotto con i relativi numeri di codice. Pagherò contrassegno 
L. 13.500 per ogni cassetta e L. 20.000 per ogni floppy disk (+ L. 3.500 come contributo alle spese di spedizione). Per 
ogni titolo, indico con una crocetta se scelgo la cassetta o il floppy disk e scrivo anche il totale di quanto pagherò alla 
consegna. 



N. CODICE 

CASSETTA 

floppy 

DISK 

LIRE 

1 





2 





3 





4 





5 





6 






(+ L. 3.500) TOT. 



nome_ 

COGNOME 

VIA_ 


N° 


CAP_CITTÀ 


FIRMA 


(di un genitore, se sei minorenne) 


PSW 
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MOSTRA 
E SEMINARI 


EDP USA compie 15 anni. Quindici an¬ 
ni di mostre che hanno costituito un 
“ponte” fra la tecnologia informatica 
americana e la creatività applicativa 
italiana. 

EDP USA 86 rappresenta il momento 
di incontro di queste forze al più alto 
livello specialistico. 

I 6.000 mq. di area espositiva ospiteranno, nei 
quattro giorni della manifestazione i produttori 
americani più rappresentativi di tutti i comparti 
deH'informatica, una sezione Computer Gra¬ 
phics e una Trade Mission ufficiale di dieci 
membri specializzati in software proveniente da¬ 
gli Stati Uniti. Nel salone dei congressi si svolge¬ 


ranno tre seminari presieduti da eminenti perso¬ 
nalità dell'informatica: 

5 febbraio: ‘‘Infocenter: Strumenti e Organiz¬ 
zazione, una Realtà per il Futuro”. 

Coordinatore: Prof. Giancarlo Martella, docente 
di Trattamento dell'Informazione nell'Impresa 
presso il Politecnico di Milano. 

Quota di partecipazione: Lit. 75.000 

6 febbraio: “Un viaggio dall'Invenzione del 
Transistor alla Intelligenza Artificiale". 

Coordinatore: Prof. Marco Somalvico, ordinario 
di Complementi di Programmazione e di Robo¬ 
tica Industriale dell’Istituto di Elettronica del Po¬ 
litecnico di Milano. 


Quota di partecipazione: Lit. 150.000, colazione 
inclusa 

7 febbraio: “Personal Computer e CAD: nuo¬ 
ve frontiere da esplorare”. 

Coordinatore: Ing. Roberto Favero, consulente 
di informatica. 

Quota di partecipazione: Lit. 75.000 
Le quote di partecipazione dovranno pervenire a 
mezzo assegno intestato a USIMC entro il 27 
gennaio. L'ingresso alla mostra è riservato agli 
operatori del settore. 

Gli studenti sono ammessi nel pomeriggio dei 
giorni 4 e 7 febbraio previa prenotazione e paga¬ 
mento di un biglietto ingresso di Lit. 3.000. 
Orario di apertura della mostra: 9.00 -18.00. 


USA 


CENTRO COMMERCIALE AMERICANO 

VIA GATTAMELATA. 5 - 20149 MILANO TELEPHONE 46 96 451/2 • TELEX 330208 USIMC-I 






